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Nota de los autores 


Los programas de este libro están escritos para los or- 
denadores ZX Spectrum o ZX81. Cada programa está es- 
crito para uno de estos dos modelos, pero en cada caso 
indicamos cómo adaptarlo al otro. En muchas ocasiones 
no hacen falta grandes cambios para hacer compatible un 
programa con otros microordenadores que trabajan con 
BASIC. 

El Timex/Sinclair TS1000 es la versión norteamericana 
del ZX81, y el T'S2000, la del Spectrum. Se sobreentien- 
de que las referencias al ZX81 o al Spectrum son tam- 
bién válidas para la correspondiente versión nortea- 
mericana. 

Las diferencias entre el ZX81 y el Spectrum son, en pri- 
mer lugar, que la imagen de TV se genera de manera bas- 
tante distinta en las dos máquinas, y en segundo lugar, 
que el BASIC del Spectrum es una versión «ampliada» 
del ZX81. En el Spectrum, el estado de cada punto en la 
pantalla se almacena por separado, lo cual permite dibu- 
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jar gráficos de alta resolución; con el ZX81, por el con- 
trario, sólo se pueden obtener texto y gráficos de baja re- 
solución. Además, la imagen del ZX81 es en blanco y ne- 
gro, mientras que el Spectrum produce imágenes en co- 
lor (aunque la información en color tiene una resolución 
bastante más baja que los gráficos), y en un monitor en 
blanco y negro se obtienen tonos de gris. 

El BASIC del Spectrum incluye, además de los coman- 
dos necesarios para ejecutar las funciones gráficas, otros 
comandos adicionales como BEEP, DATA, DEF EN, 
MERGE, OUT, READ, RESTORE y VERIFY, las fun- 
ciones de FN, IN y VALS, así como letras minúsculas, 
los dos puntos, que permite escribir varias instrucciones 
en la misma línea, y otras posibilidades adicionales con 
los comandos CLEAR, INPUT, LOAD y SAVE. Los 
comandos FAST, SCROLL y UNPLOT del ZX81 no es- 
tán incluidos en el BASIC del Spectrum porque éste no 
tiene dos modos distintos, «rápido» y «lento», y porque 
las operaciones de movimiento en vertical («scroll») y 
«unplot» se realizan de una manera distinta. 

Aunque entre los dos BASICs hay algunas diferencias 
de notación, a lo largo del libro hemos utilizado una sola, 
independientemente de la versión de BASIC empleada. 
Para los nombres de variables utilizamos minúsculas 
(para distinguirlas de los «símbolos designadores», que 
van en mayúsculas). Los siguientes comandos tienen di- 
ferente escritura en una y otra máquina: 


ZX81 Spectrum Utilizado aquí 
CONT CONTINUE CONTINUE 
GOSUB GO SUB GOSUB 
GOTO GOTO GOTO 


RAND  RANDOMIZE RANDOMIZE 
ne 1 1 


Parte 1 
¿Qué es un ordenador? 


Un ordenador es una máquina que se utiliza para 
almacenar y procesar información y que es gobernada 
por un «programa», almacenado en la máquina junto 
con la demás información. En la Parte 1 estudiamos lo 

que esto significa en la práctica. 


Capítulo 1 


Una introducción histórica 


La línea genealógica más directa hasta los actuales mi- 
croordenadores arranca probablemente de las calculado- 
ras mecánicas construidas originalmente por Pascal en el 
siglo XVII. La diferencia fundamental entre los ordena- 
dores y las calculadoras mecánicas estriba en que aqué- 
llos se pueden «programar» para que realicen una secuen- 
cia de cálculos. En el caso de las calculadoras mecánicas 
es necesario intervenir para que ejecute cada operación 
(dando a una tecla o girando una manivela), y hay que 
esperar a que termine una operación para pasar a la si- 
guiente, mientras que el ordenador, una vez almacenado 
el «programa» de operaciones en su memoria, puede eje- 
cutarlo una y otra vez a su propia velocidad. 

Charles Babbage, ya en el siglo XIX, intentó construir 
una calculadora mecánica programable a la que dio el 
nombre de «máquina analítica»; pero la empresa demos- 
tró ser inviable con la tecnología mecánica que existía en 
aquella época. (Hoy día se piensa que utilizando mate- 


11 


12 John y Catherine Grant 


riales modernos y piezas de mayor precisión se podría 
construir una máquina analítica operativa.) 

Las primeras computadoras operativas fueron cons- 
truidas en los años 40 utilizando válvulas termoiónicas 
(llamadas a veces «lámparas»); estas máquinas reciben 
hoy día el nombre de ordenadores de la «primera gene- 
ración» (véase la Figura 1.1). Los de la «segunda genera- 


Válvulas - E3 Transistor - 
Primera generación |) Segunda generación 


Circuitos integrados a Circuitos integrados 
pequeña escala (SSI) - a gran escala (LSI) - 
Tercera generación Cuarta generación 


ción», a principios de los años 60, utilizaban transistores, 
mientras que los de la tercera empleaban «circuitos inte- 
grados», reuniendo unos doce transistores en un solo 
«chip» de silicio. Cada chip era una estructura compacta 
encargada de realizar una función elemental (como la de 
amplificar una señal o combinar varias señales en una 
sola), operación que hasta entonces la tenía que realizar 
un circuito entero con varios transistores y otros com- 
ponentes. La cuarta generación, a la que pertenecen los 
microordenadores, utiliza circuitos integrados «a gran es- 
cala» (“large scale” integrated circuits), LSI en abreviatura, 
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en los cuales el chip contienen decenas de miles de tran- 
sistores. La disposición de los transistores y las conexio- 
nes entre ellos en un circuito integrado se realiza de ma- 
nera muy parecida a las conexiones en una placa de cir- 
cuitos impresos, solo que a una escala mucho menor. 

La invención de los circuitos LSI cabe compararla a la 
de la imprenta. Antes de que existieran imprentas había 
que escribirse a mano cada uno de los ejemplares de un 
libro, mientras que con la imprenta se podía imprimir 
una página entera (una vez compuesta) en una sola ope- 
ración que era casi instantánea. La diferencia entre soldar 
los componentes individuales a una placa de circuitos y 
producir un chip LSI es muy parecida. 

Las cuatro primeras generaciones de ordenadores tie- 
nen todas ellas la misma estructura básica que se muestra 
en la Figura 1.2(a) y que fue descrita por primera vez por 
John von Neumann a principios de los años 40. La me- 
moria podemos imaginárnosla como un gigantesco ban- 
co de conmutadores, cada uno de los cuales puede estar 
conectado o desconectado (on u off); los conmutadores 
están agrupados en «palabras», y cada palabra en la me- 
moria contiene el mismo número de conmutadores. Cada 
palabra tiene su propia «dirección», que no es más que 
un número que la identifica, lo mismo que cada casa de 
una calle tiene su propio número. 

La «unidad central de proceso» (UCP, o en inglés 
CPU = Central Processing Unit) es capaz de buscar o 
«leer» cualquier palabra que haya en la memoria; tam- 
bién puede intentar «escribir» cualquier palabra (es de- 
cir, crear una distribución nueva de «on» y «off» en los 
conmutadores), aunque con algunos tipos de memoria, 
llamados memoria «de sólo lectura» o ROM en abrevia- 
tura (read only memory), fracasará el intento. 

Cuando queremos almacenar números en la memoria, 
el estado on/off de cada conmutador se utiliza para re- 
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presentar o bien O (en uno de los estados) o bien 1 (en el 
otro); estos reciben el nombre de «dígitos binarios» (bi- 
nary digits) o «bits» en abreviatura. En la mayoría de los 
ordenadores actuales cada palabra contiene 8 bits y se de- 
nomina «byte». 

En un byte pueden almacenarse 259 combinaciones di- 
ferentes de 1s o Os (llamadas «cadenas de bits»): 
00000000, 00000001, 00000010, 00000011, 00000100, y así 
sucesivamente hasta 11111111. Un par de bytes (que con- 
tienen un total de 16 bits) son capaces de dar cabida a 
cualquiera de 65.356 cadenas diferentes de bits. En el ca- 
pítulo 3 diremos algo más sobre cómo representar datos 
mediante cadenas de bits. 

La CPU utilizada en los ordenadores ZX es la Z80, 
que utiliza palabras de 8 bits almacenadas en chips de me- 
moria separados, con un máximo de 65.536 direcciones 
diferentes. En el chip de la CPU hay además almacena- 
das otras dieciocho palabras de 8 bits y cuatro palabras 
de 16 bits que reciben el nombre de «registros». La CPU 
utiliza a veces dos palabras de 8 bits para componer una 
palabra de 16 bits. Al igual que todas las CPUs, las ta- 
reas aparentemente complejas que realiza se componen 
de gran número de pasos elementales llamados «ciclos de 
máquina». Realiza aproximadamente un millón de ciclos 
de máquina por segundo. 

El primer ciclo de máquina que realiza la CPU consis- 
te en leer un byte de la memoria; este byte se denomina 
«código de operación» («op-code» en la abreviatura in- 
glesa), y representa una de las 256 posibles operaciones 
que puede realizar la CPU. La CPU ejecuta entonces la 
operación indicada; si se trata de algo elemental, como 
copiar en un registro la cadena de bits almacenada en otro 
(algo así como colocar los conmutadores que forman el 
segundo registro en los mismos estados que los del pri- 
mero), se completa durante el mismo ciclo de máquina, 
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y en el ciclo posterior se lee el siguiente código de ope- 
ración, sacándolo de la dirección de memoria que esté a 
continuación. 


Otras operaciones posibles son la de leer datos de la 
memoria, escribir en la memoria, deducir una nueva ca- 
dena de bits a partir de otras ya existentes y almacenarla 
en un registro o en la memoria, y operaciones de «salto» 
que modifican la dirección de donde se leerá el siguiente 
código de operación. 

Un ordenador no sirve de gran cosa a menos que pue- 
da comunicarse con el mundo exterior. Los ordenadores 
ZX realizan esa función a través del teclado y de la ima- 
gen de TV principalmente; pero las entradas de informa- 
ción pueden provenir de cualquier dispositivo que pro- 
duzca una señal eléctrica mensurable y las salidas pueden 
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ir a cualquier cosa que se pueda controlar eléctricamente. 
La CPU lee las entradas de datos de manera muy pare- 
cida a como lee la memoria; ahora bien, la cadena de bits 
que recibe no es algo que estuviese previamente almace- 
nado, sino más bien una indicación del estado actual de 
algo exterior al ordenador. El Z80 utiliza un conjunto de 
direcciones para entrada/salida completamente diferente 
del utilizado para la memoria, aunque hay otras CPUs 
que tienen un único conjunto de direcciones para todo. 

En los ordenadores ZX existe una dirección tal que cin- 
co de los bits del byte leído en ella corresponden a cinco 
de las teclas del teclado, siendo un O si está pulsada la te- 
cla y un 1 en caso contrario; otras siete direcciones de- 
tectan de modo análogo el estado del resto de las teclas. 
La CPU lee sucesivamente estas ocho direcciones para 
averiguar cuáles de las 40 teclas del teclado se están pul- 
sando; de esta manera es capaz de saber cuándo el usua- 
rio aprieta una tecla y reaccionar en consecuencia. Otro 
bit le permite ver si la señal de la cinta de la casete está 
a voltaje alto o bajo; este bit se utiliza durante la instruc- 
ción LOAD. 

La CPU también envía los datos al exterior de manera 
muy parecida a como escribe en la memoria; pero en este 
caso la cadena de bits, en lugar de quedar simplemente 
almacenada para su posterior lectura, sirve para contro- 
lar algún dispositivo fuera del ordenador. En los ordena- 
dores ZX esta cadena de bits incluye una señal grabada 
en el casete durante la instrucción SAVE y las señales 
eléctricas que controlan la impresora. 

Hay veces que las cadenas de bits se copian direc- 
tamente desde un periférico de entrada a la memoria, o 
de la memoria a un periférico de salida, como en la Fi- 
gura 1.2 (b). Es lo que se denomina «acceso directo a me- 
moria» o DMA (direct memory access). El Spectrum uti- 
liza el DMA para la imagen de TV; con ese fin se reserva 
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una parte de la memoria, de tal forma que los bits que la 
CPU escribe en esta zona de memoria producen el con- 
siguiente efecto en la imagen de TV. El conjunto de cir- 
cuitos del DMA copia los datos a aquella parte de la elec- 
trónica que genera la señal de vídeo. El ZX81 utiliza su 
CPU para dar salida a la señal de vídeo, y la CPU no pue- 
de hacer esto al mismo tiempo que ejecuta un programa 
BASIC; así pues, al usuario se le ofrece la elección entre 
el modo SLOW, en el cual el programa en BASIC sola- 
mente funciona durante aquella parte en que la señal de 
TV no contiene ningún dato, y el modo FAST, en el cual 
no se genera imagen de TV mientras se está ejecutando 


el programa BASIC. 


Otros tipos de CPU difieren del Z80 en el tipo de ope- 
raciones que son capaces de realizar, en la manera en que 
éstas vienen representadas por los códigos de operación, 
en la longitud de palabra de la memoria, en el número de 
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direcciones diferentes en la memoria, así como en otros 
detalles. Pero todas ellas tienen el mismo ciclo básico de 


leer una instrucción de la memoria 
ejecutarla 

leer la instrucción siguiente 
ejecutarla 


y así sucesivamente. Como las instrucciones son ejecuta- 
das una tras otra en secuencia, los ordenadores conven- 
cionales se denominan máquinas «secuenciales». 

El Japón, el Reino Unido y la CEE han anunciado 
proyectos de construir ordenadores de la «quinta genera- 
ción», que serían capaces de realizar un gran número de 
Operaciones a un mismo tiempo. Se espera que en tareas 
que exijan examinar gran cantidad de datos simultánea- 
mente esos ordenadores sean muy superiores a los actua- 
les, secuenciales; de ello nos ocuparemos con más detalle 
en el capítulo 2. Queda por ver si la industria de los or- 
denadores es capaz de romper el corsé del diseño de Von 
Neumann. 


¿Qué es lo que hacen los ordenadores? 


Las computadoras (y las calculadoras) electrónicas fun- 
cionan mucho más rápidamente que las calculadoras me- 
cánicas, de modo que la típica computadora de hoy día 
se pasa gran parte del tiempo esperando a que un opera- 
dor humano le dé una instrucción (normalmente teclea- 
da), pese a que cada instrucción hará probablemente que 
la computadora ejecute varios miles de operaciones dis- 
tintas. Por ejemplo, introducir la orden 


PRINT 417/23 
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en un ordenador ZX exige a éste identificar que tiene que 
imprimir algo, convertir los dígitos 417 en la cadena de 
bits que representa el número 417 en la memoria, iden- 
tificar que tiene que dividir un número entre otro, con- 
vertir 23 en la cadena de bits correspondiente, efectuar la 
división (que a su vez se compone de operaciones de suma 
y resta), convertir otra vez el resultado a dígitos decima- 
les, y hacer que estos dígitos aparezcan en la pantalla de 
TV. La velocidad a que se realiza todo ello hace creer, 
sin embargo, que es instantáneo. 

Este ejemplo suscita una serie de cuestiones impor- 
tantes: 


a) hasta operaciones aparentemente «primitivas», 
como la división, se componen de operaciones más ele- 
mentales, porque el computador solamente puede reali- 
zar Operaciones muy simples; pero las ejecuta con tanta 
rapidez que puede utilizar gran número de ellas; 
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b) gran parte del trabajo realizado por la computa- 
dora tiene que ver con adaptar las cosas de manera con- 
veniente para la persona que las está utilizando, en lugar 
de realizar realmente los cálculos que le piden; 

c) si el operador humano tuviera que realizar uno a 
uno todos esos procesos, sería más rápido y fácil hacer 
la división a mano. 


Cuando se inventaron los ordenadores electrónicos se 
pensó que unos veinte serían suficientes para realizar to- 
dos los cálculos que se necesitaban hacer en el mundo. 
Tal estimación se basaba en el número de cálculos que ha- 
cían los matemáticos en aquella época, sin entender que, 
precisamente porque los ordenadores eran capaces de rea- 
lizar gran número de cálculos con rapidez y fiabilidad, 
iba a ser posible realizar con computadora muchas de las 
tareas que antes se hacían por otros medios, como puede 
ser la del ejemplo anterior. 


¿Para qué se utilizan? 


Si solamente se necesitan veinte ordenadores (o aun- 
que fuesen doscientos) para «cálculos brutos», ¿para qué 
sirven todos los demás? 

La invención de la ficha perforada se atribuye a Her- 
mann Hollerith, que fue una de las personas a las que se 
encomendó la tarea de analizar los datos recogidos en el 
censo de los EEUU de 1880. El trabajo le debió de pa- 
recer bastante insoportable, porque para el censo de 1890 
inventó un sistema en el que las respuestas de cada for- 
mulario se registraban mediante perforaciones en una 
ficha. 

Para cada pregunta de formulario del censo se utilizaba 
una columna (o un grupo de columnas), y dentro de cada 
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una de éstas había una serie de posiciones donde se po- 
día perforar o no un agujero según fuese la respuesta a 
la pregunta. Las fichas se introducían luego en una má- 
quina (una «clasificadora») que detectaba eléctricamente 
si había o no un agujero en las distintas columnas de cada 
ficha; ésta caía en una tolva o en otra, según dónde es- 
tuviese el orificio. La máquina contaba asimismo el nú- 
mero de tarjetas que iban a parar a cada tolva. 

Con la máquina, el trabajo quedó completado en la ter- 
cera parte del tiempo que se había tardado en hacerlo a 
mano diez años antes. (Está claro que las autoridades 
competentes no habían comprendido las posibilidades del 
procesamiento automático de datos; de haber sido así, el 
trabajo habría llevado dos veces más tiempo, pero mul- 
tiplicando por seis el número de análisis.) 

Las fichas perforadas se utilizaron posteriormente en 
muchas aplicaciones de procesamiento de datos, sobre 
todo funciones de contabilidad centralizadas en grandes 
organizaciones. En seguida se empezaron a utilizar los or- 
denadores en los sistemas de fichas perforadas, donde 
brindaban la posibilidad de realizar análisis más compli- 
cados que los que se podían efectuar con las clasificado- 
ras de fichas y las tabuladoras: operaciones como las de 
leer el número perforado en una ficha, sumárselo al nú- 
mero perforado en una segunda ficha y perforar una ter- 
cera con el número así calculado. En un ordenador se po- 
día introducir, por ejemplo, una pila de fichas con deter- 
minados datos relativos a las cuentas corrientes de los 
clientes y una segunda pila de fichas con ciertos datos de 
los pagos efectuados (habiendo clasificado previamente 
las pilas en un orden conveniente); el ordenador era en- 
tonces capaz de producir una nueva pila de fichas con da- 
tos actualizados de las cuentas. 

Como alternativa a la utilización de fichas (trozos de 
cartulina), los datos se registraban a menudo en cinta 
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magnética, con un formato similar al utilizado en las fi- 
chas. La lectura de un «registro» de la cinta produce, para 
el ordenador, las mismas señales eléctricas que las que ha- 
bría producido la lectora de fichas al leer una ficha que 
contuviera los mismos datos, y tales registros se denomi- 
nan con frecuencia «imágenes de ficha». Ahora bien, las 
cintas eran más rápidas que las lectoras de fichas y no es- 
taban limitadas a un tamaño particular de registro; y por 
otro lado, eran bastante más fáciles de manejar que una 
caja de fichas que contuviera la misma cantidad de datos: 

Los ordenadores actuales utilizan cada vez más los dis- 
cos magnéticos en lugar de cintas magnéticas. Los datos 
se almacenan de la misma manera que en cinta, es decir, 
en forma de pequeñas áreas de magnetismo en un recu- 
brimiento de material magnético adecuado, sin surcos 
como los que se utilizan en los discos gramofónicos. La 
ventaja de utilizar discos es que permiten leer cualquier 
registro en una fracción de segundo, mientras que para 
leer un registro en una cinta pueden llegar a hacer falta 
varios minutos, hasta avanzar la cinta al lugar apropiado. 

Los discos magnéticos también se utilizan como «me- 
moria auxiliar» para ampliar la cantidad de memoria a la 
que tiene acceso la CPU. Existen, pues, varios niveles de 
memoria, como se muestra en la Figura 1.2(c): desde 
los registros, que ofrecen una capacidad de almacena- 
miento limitada pero de muy fácil acceso, hasta la me- 
moria auxiliar, que ofrece gran cantidad de almacena- 
miento pero de acceso relativamente lento. 

A pesar de los muchos avances que se han hecho en la 
tecnología del procesamiento de datos en los últimos 
treinta años, una proporción muy alta de los modernos 
ordenadores de la «cuarta generación» se utilizan para al- 
macenar imágenes de ficha y realizar con ellas las mismas 
operaciones que se efectuaban con los equipos de fichas 
perforadas de la era pre-ordenador como el utilizado por 
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Hollerith en 1890: clasificar las fichas en un orden deter- 
minado, contarlas, imprimir (o «listar») los datos y se- 
leccionar aquellas fichas que tienen determinados valores 
de los datos. 


Lenguajes de programación 


Para utilizar un ordenador en una tarea concreta es ne- 
cesario «programarlo», es decir almacenar en su memo- 
ria la secuencia de operaciones requerida. 

En los primeros ordenadores la programación consis- 
tía en escribir las operaciones a realizar, escribir luego la 
serie de números correspondiente a la cadena de bits per- 
tinente, y cargar finalmente esta cadena de números en la 
memoria del ordenador. El proceso era muy pesado y so- 
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lían deslizarse numerosos errores, de modo que el pro- 
grama cargado en el ordenador no cumplía muchas veces 
su cometido. (Estos errores se llaman en inglés «bugs» 
(bichos), y sobre ellos hablaremos más adelante.) 

En seguida se cayó en la cuenta de que la tarea de con- 
vertir el programa en esa cadena de números a partir de 
una forma comprensible para un lector normal era pre- 
cisamente el tipo de trabajo para el que se debía utilizar 
los ordenadores. Con ese fin se crearon los «lenguajes» 
de programación, es decir notaciones formales con ayu- 
da de las cuales se pueden escribir los programas (como 
«código fuente») para ser traducidos luego, mediante pro- 
gramas especiales llamados «compiladores», en la cadena 
de bits (o «código máquina») que representa la secuencia 
apropiada de operaciones. El ordenador «ejecuta» luego 
el programa realizando esas Operaciones. 

Cada máquina tiene un repertorio diferente de opera- 
ciones que puede realizar y también una manera distinta 
de representarlas en la memoria del ordenador. Decimos 
que tienen «juegos de instrucciones» diferentes. Al prin- 
cipio, cada máquina tenía también su propio lenguaje de 
programación, O «autocódigo»; pero pronto se vio que 
sería útil poder utilizar el mismo lenguaje en todas las má- 
quinas, porque de ese modo los programadores no ten- 
drían que aprender un lenguaje nuevo al cambiar de má- 
quina, y los programas escritos para una de ellas podría 
ejecutarlos otra cualquiera sin necesidad de reescribirlo 
en el lenguaje de programación de la segunda máquina. 

El primer lenguaje de este tipo, creado a mediados de 
los años 50, fue el Fortran. El nombre es una contradic- 
ción de «formula translator» («traductor de fórmulas»), 
por centrarse principalmente en el cálculo de fórmulas 
matemáticas (como convenía en aquella época en que la 
principal aplicación de los ordenadores eran los simples 
cálculos numéricos). 
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Por ejemplo, la fórmula 


A/IB+CX%XS 


era traducida a una secuencia de operaciones en código 
máquina que dividían el número representado por A por 
el representado por B, multiplicaba por 5 el número re- 
presentado por C y sumaba los dos resultados. (Se utili- 
zaba el asterisco porque el equipo con que se componían 
los programas no tenían signo de multiplicación; en el ca- 
pítulo 3 veremos cómo el ordenador averigua lo que re- 
presentan los número A, B y C.) 

Un programa de Fortran está compuesto de «senten- 
cias», escrita cada una de ellas en una línea. Cada senten- 
cia representa una sola acción, como puede ser almace- 
nar el valor de una fórmula en la memoria del ordena- 
dor, aunque eso equivale normalmente a una secuencia 
de varias operaciones de la máquina, como en el ejemplo 
del apartado anterior. El término «sentencia» es un tanto 
equívoco, porque, por ejemplo, 


no sentencia que el valor de A sea igual a la suma de los 
valores de B y C, sino que ordena a la máquina que haga 
las operaciones necesarias para almacenar B+C como 
nuevo valor de A. (Esto lo explicaremos con mucho más 
detalle en el capítulo 3.) 

El Fortran se sigue utilizando mucho en ordenadores 
grandes, pero no es uno de los lenguajes más frecuentes 
en los microordenadores. 

Otro lenguaje que fue definido por primera vez en los 
años 50 se llamaba «Algol», contracción de algorithmic 
language, «lenguaje algorítmico». La palabra «algoritmo» 
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significaba, en su origen, el sistema arábigo de numera- 
ción (en contraposición a los numerales romanos, por 
ejemplo), así como la aritmética basada en él; en conso- 
nancia con ello, el Algol era simplemente un lenguaje 
orientado a la aritmética; la palabra «algoritmo» significa 
hoy la especificación, paso a paso, de cómo realizar un 
cálculo, y el Algol es naturalmente un lenguaje en el que 
se pueden escribir tales especificaciones. 

Los diseñadores del Algol tenían tres objetivos: el len- 
guaje tenía que ser lo más próximo posible a la notación 
matemática convencional, tenía que prestarse a la descrip- 
ción de algoritmos en las revistas, y tenía que ser posible 
traducirlo a código máquina mediante ordenador. Es dig- 
no de señalar que los diseñadores antepusieron la comu- 
nicación de algoritmos entre personas a la comunicación 
entre personas y ordenador. 

Todas las versiones de Algol utilizan un símbolo espe- 
cial, formado por dos puntos y un signo «igual», que sig- 
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nifica «se convierte en», para indicar la acción de alma- 
cenar un número en la memoria. Así 


es diferente de 
a.b+c 


Esta última expresa que los dos valores son iguales, o 
que da la casualidad de que son iguales, y no instruye en 
absoluto al ordenador que modifique nada para hacer que 
sean iguales. 

El tercer lenguaje importante de entre los primeros es 
el Cobol, acrónimo de common business-oriented langua- 
ge (lenguaje común para actividades comerciales). Es muy 
diferente de los lenguajes especializados en cálculos nu- 
méricos y está orientado al tipo de tarea que se adapta 
a los equipos de fichas perforadas y a la manipulación de 
«archivos» con los registros de imagen de ficha en cintas 
o discos magnéticos; en efecto, se ha llegado a decir que 
en Cobol solamente existen cuatro programas: uno para 
leer fichas nuevas, otro para verificar que los datos per- 
forados en ellas sean válidos, otro para clasificarlas y «fu- 
sionarlas» con algún archivo ya existente, y otro para pro- 
ducir una copia impresa de ellas (o del nuevo archivo). 
En contraste con el objetivo del Algol de utilizar la no- 
tación matemática convencional, el Cobol utiliza palabras 
inglesas como 


ADD'B TO C GIVING A 
con el propósito de que los programas pueda compren- 


derlos una persona que no esté familiarizada con los or- 
denadores o que no sea matemático de profesión. Con- 
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secuencia de ello es que los programas, aunque sencillos, 
resultan bastante largos; se permiten algunas abreviatu- 
ras, pero un programa escrito en la forma abreviada se- 
guramente resulte totalmente indescifrable para un lec- 
tor no iniciado. Además, hay algunas construcciones del 
Cobol que no son obvias ni siquiera en su forma no abre- 
viada: por ejemplo, en la sección del programa que des- 
cribe la jerarquía de las estructuras de datos utilizadas 
hay ciertos «niveles» de la jerarquía (66, 77 y 88) que se 
comportan de manera muy distinta a los demás. 


Los tres lenguajes anteriores están pensados para que 
los pueda leer la gente y para que sean traducidos a có- 
digo máquina por un ordenador. Ahora bien, las carac- 
terísticas que hacen que los programas sean de fácil lec- 
tura para la gente tienden también a hacer más farragoso 
el lenguaje, haciendo así que los programas resulten más 
largos de escribir y de teclear. Por otra parte, estos len- 
guajes se inventaron con vistas a unas condiciones de tra- 
bajo en las que el programador se pensaba primero muy 
bien cómo hacer los cálculos que necesitaba, luego lo es- 
cribía en el lenguaje apropiado, luego lo perforaba (o ha- 
cía que se lo perforaran) en fichas o en cinta de papel; las 
fichas o la cinta eran finalmente leídas por el ordenador, 
que traducía el programa a código máquina y lo «ejecu- 
taba». Si el programa no funcionaba, se sustituían algu- 
nas de las fichas o se preparaba una copia corregida de la 
cinta de papel, ensayando la nueva versión en el ordena- 
dor. En muchas ocasiones había que esperar mucho tiem- 
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po para acceder al ordenador, de modo que el programa- 
dor tenía tiempo de sobra para cerciorarse de que el pro- 
grama iba a funcionar, y también fuertes motivos para no 
ser demasiado descuidado al escribirlo. 

Durante los años 60 se inició un movimiento, sobre 
todo en las universidades, hacia los ordenadores «de ac- 
ceso múltiple» (o «en línea»), que permitían a los pro- 
gramadores teclear directamente los programas en la me- 
moria del ordenador en lugar de utilizar fichas o cinta de 
papel (sistemas que se denominan «fuera de línea» u «off- 
line», porque el tecleado y la edición del programa se ha- 
cen con equipo no directamente conectado con el orde- 
nador). Así nació la posibilidad del uso «interactivo» del 
ordenador, en el que el programador podía teclear una or- 
den, hacer que el ordenador la obedeciera y mirar el re- 
sultado antes de pasar a la siguiente orden. De ese modo 
la programación pudo convertirse en un proceso de tan- 
teo O ensayo y error, en un grado que no había tenido 
hasta entonces. 

El lenguaje APL (que significa sencillamente A Pro- 
gramming Language, «Un lenguaje de programación»), 
lo mismo que el Algol 60, no estaba pensado inicialmen- 
te para escribir programas destinados a un ordenador; 
efectivamente, fue unos ocho años después de su inven- 
ción cuando se aplicó por primera vez este lenguaje a un 
ordenador. A diferencia del Algol, el APL no fue ideado 
para comunicar algoritmos de una persona a otra, sino 
más bien como una notación que podría utilizar una per- 
sona para diseñar algoritmos, de tal forma que cualquier 
cálculo concreto requiriese un mínimo de escritura. El 
APL sigue siendo de uso muy frecuente en este ámbito, 
aunque utilizando un terminal en línea con un ordena- 
dor en lugar de lápiz y papel, por lo cual subsiste el re- 
quisito de concisión. 

Por esa razón, el APL utiliza notación matemática (el 
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signo menos, por ejemplo, necesita un solo golpe de te- 
cla, mientras que la palabra SUBTRACT necesita ocho, 
más un noveno para el espacio de separación al final de 
la palabra), y se introdujeron además símbolos especiales 
para algunas órdenes que no poseían una notación mate- 
mática adecuada. La mayoría de los símbolos se utilizan 
para varios fines diferentes, igual que ocurre con algunas 
palabras en cualquier idioma; el significado concreto de 
un símbolo utilizado en una orden viene determinado por 
el contexto. 


Dado que el APL se utiliza principalmente para la co- 
municación persona-ordenador, y como las órdenes son 
con frecuencia efímeras (en el sentido de que una vez que 
se ha tecleado la orden y el ordenador la ha obedecido 
—proceso que a menudo sólo dura un par de segundos 
en total— la orden ya no se necesita y puede olvidarse), 
la forma típica de un programa APL es tan indescifrable 
que cualquier persona distinta del autor del programa en- 
contrará extremadamente difícil averiguar de qué se tra- 
ta. (E igual de difícil le resultará también al propio autor 
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cuando pasen unas semanas y olvide cómo escribió el 
programa.) 

Inevitablemente hay que llegar a algún tipo de com- 
promiso: para que el programa lo pueda entender más fá- 
cilmente una persona, es necesario agregarle cierta infor- 
mación adicional, lo cual exigirá por fuerza más tiempo 
de teclado. A veces se dice que el APL es un lenguaje de 
«sólo escritura», porque después de escribir un progra- 
ma resulta imposible leerlo. El gran número de símbolos 
especiales y los potentes medios que pone al alcance del 
programador hacen que sea necesario algún tiempo para 
aprender a usar el APL con eficacia. 

El BASIC (acrónimo de Beginner's All-purpose Sim- 
bolic Instruction Code, Código de Instrucciones Simbó- 
licas de Propósito General para Principiantes) data del 
año 1964, pero no adquirió realmente difusión hasta la 
llegada de los microordenadores a finales de los años 70. 
Al igual que el APL, está pensado para uso interactivo, 
aunque su nombre ya indica que va dirigido a personas 
recién iniciadas en la programación. Por consiguiente, no 
posee las potentes posibilidades del APL, ni tampoco los 
símbolos especiales que las invocan; las órdenes se intro- 
ducen mediante palabras inglesas, como por ejemplo 
PRINT. Algunas versiones, incluida la de los ordenado- 
res ZX, reducen la cantidad de tecleado necesario a base 
de utilizar una sola tecla para cada una de esas palabras. 


Lenguajes de alto nivel y de bajo nivel 


Los lenguajes se clasifican a veces en lenguajes de «alto 
nivel» y de «bajo nivel». Un lenguaje de bajo nivel es un 
lenguaje que especifica las distintas operaciones de má- 
quina que han de aparecer en el código máquina, aun- 
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que (lo mismo que en los autocódigos) la forma en que 
está escrito resulta más accesible que una simple cadena 
de números para el lector humano. Estos lenguajes se lla- 
man a menudo «códigos ensambladores» y se utilizan 
siempre que es importante controlar exactamente qué 
operaciones ejecuta el ordenador, allí donde el programa 
tiene que ser especialmente eficiente en la utilización del 
ordenador, o cuando el ordenador no dispone de ningún 
lenguaje adecuado de alto nivel. 

El programa que controla los ordenadores de la serie 
ZX (para verificar qué teclas están apretadas en el tecla- 
do, hacer que aparezca la imagen apropiada en la panta- 
lla de TV, obedecer las órdenes del BASIC, etc.) está es- 
crito en código ensamblador, por las tres razones que aca- 
bamos de dar; por ejemplo, la frecuencia de las señales 
registradas en la cinta de casete por la orden SAVE de- 
pende de la secuencia exacta de operaciones realizadas du- 
rante el proceso SAVE. Un diseño cuidadoso permite 
acoplar más posibilidades en la memoria disponible y per- 
mite agilizar al máximo las partes del programa utiliza- 
das con más frecuencia. 

Los lenguajes de alto nivel tratan de especificar 
qué tarea es preciso realizar, descargando al programa- 
dor de la necesidad de decidir cómo lo hará el ordena- 
dor; es una condición que tiene que cumplirse para que 
los lenguajes de alto nivel sean «independientes de la má- 
quina», es decir, para que un mismo programa lo pueda 
ejecutar cualquier ordenador. En la práctica, los lengua- 
jes más comunes se preocupan mucho del «cómo», hasta 
el punto de que es muy fácil perder de vista el «qué». Lo 
cual es en cierta medida inevitable en un lenguaje de pro- 
pósito general, porque lo único que tienen en común las 
diversas tareas es que pueden resolverse en un ordena- 
dor: el lenguaje proporciona un modo de describir que 
tiene que hacer éste, pero no puede hacerlo de un modo 
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que esté relacionado con las necesidades de cualquier apli- 
cación particular. 

Existen algunos lenguajes de aplicación especializa- 
dos en tipos concretos de tareas, y también están empe- 
zando a surgir lenguajes más generales que se acercan más 
a auténticos lenguajes de alto nivel; reciben el nombre de 
lenguajes de «muy alto nivel» para distinguirlos de los 
anteriores. 

Muchos lenguajes (como el Fortran y el Cobol) han so- 
brevivido más de lo que sería de esperar teniendo en 
cuenta la velocidad con que progresan otros aspectos de 
la tecnología de los ordenadores. Los nuevos ordenado- 
res siguen utilizando los lenguajes ya existentes, con el 
fin de aprovechar los programas escritos para máquinas 
más antiguas y de manera que los programadores que es- 
tán familiarizados con esos lenguajes puedan utilizar los 
nuevos ordenadores con un mínimo de entrenamiento; 
y por lo general es más fácil utilizar un lenguaje ya exis- 
tente (por muchos inconvenientes que tenga) que crear 


otro nuevo. 


Capítulo 2 
¿Qué puede hacer un ordenador personal? 


En los primeros días de la computación se dio gran pu- 
blicidad al tema de cuántos años tardaría un equipo de 
matemáticos en hacer una serie de cálculos que un orde- 
nador podía realizar en una hora o dos. Mucha gente se 
quedó con la idea de que los ordenadores eran capaces 
de hacer cualquier cosa que pudiesen hacer los matemá- 
ticos, sólo que más deprisa y con mayor precisión. Sin 
embargo, las investigaciones en el campo de la inteligen- 
cia artificial demostraron hacia mediados de los años 60 
que había tareas que la gente (incluidos los matemáticos) 
era capaz de resolver en una fracción de segundo mien- 
tras que el ordenador tardaba un cuarto de hora. 

Hablando en términos generales, los ordenadores so- 
bresalen en tareas que exigen realizar operaciones senci- 
llas con números: copiarlos de un lugar a otro, comparar 
dos de ellos para ver cuál es mayor, o sumarlos y restar- 
los. Excepto en algunos ordenadores muy grandes llama- 
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dos «procesadores matriciales» (array processors), estos 
cálculos se realizan uno después del otro («en serle»), 
aunque se ejecutan con tanta rapidez que puede parecer 
que se efectúan muchos de ellos simultáneamente. En 
cualquier instante dado el ordenador sólo es capaz de te- 
ner en cuenta dos o tres de los miles de números que tie- 
ne en la memoria. 

Otra cosa que los ordenadores hacen bien es convertir 
pequeñas cantidades de datos en grandes cantidades de 
ellos. Y aquí no nos estamos refiriendo a su capacidad de 
producir cantidades enormes de papel lleno de números, 
aunque ése sea el fin que se les ha dado muchas veces. 
Pensemos por ejemplo en una página de teletexto pro- 
yectada en una pantalla de TV. (Una página de teletexto 
consiste en 24 líneas de texto, cada una de ellas compues- 
ta de 40 «caracteres»; los caracteres son cosas como las 
letras del alfabeto, los dígitos, los signos de puntuación 
y los blancos entre dos palabras.) Esta clase de texto se 
almacena en un ordenador utilizando un número por cada 
carácter, de manera que necesita un total de 960 números 
por página. Cuando la página aparece proyectada en una 
pantalla de TV, está formada por 57.600 puntos (o pixels) 
distintos; la imagen de TV puede almacenarse en una for- 
ma que utilice un número para indicar el color y el brillo 
de cada punto, lo cual hace un total de 57.600 números. 

Suponiendo que el ordenador disponga de una tabla 
que dé la configuración de puntos que representa cada ca- 
rácter, es un cálculo muy fácil generar los 57.600 núme- 
ros que representan la imagen de TV a partir de los 960 
números que representan el texto; y de hecho, todos los 
ordenadores ZX utilizan en esencia ese método para ge- 
nerar la imagen de TV, aunque con ligeras variaciones de 
detalle. 

Los humanos, por el contrario, muestran gran aptitud 
en tareas que exigen reducir grandes cantidades de datos 
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a cantidades más pequeñas; es lo que se denomina «re- 
conocimiento de patrones». Así, al mirar la imagen de TV 
de la página de teletexto vemos los patrones formados 
por los 57.600 puntos de luz sobre la pantalla y los re- 
conocemos como letras del alfabeto, etc.; no recordamos 
el color ni la posición de cada punto, ni siquiera las le- 
tras y palabras formados por ellos, sino solamente el as- 
pecto global de la página y el sentido del mensaje trans- 
mitido por las palabras. 

Cuando miramos una página de esa manera, la estamos 
mirando toda ella de un golpe, considerando los 57.600 
fragmentos de información «en paralelo». Es cierto que 
si leemos el texto de la página lo leemos en serie, secuen- 
cialmente, empezando por arriba a la izquierda; pero si 
una parte de la página está en un color más brillante o 
emite destellos, esa zona atraerá inmediatamente nuestra 
atención. Un ordenador que escudriñara serialmente la 
imagen no se percataría de una zona más brillante en la 
parte inferior de la pantalla hasta que llegara allí; por otro 
lado, no se dejaría distraer por ella mientras estuviera pro- 
cesando las demás partes de la imagen. 

Para el ordenador es una tarea relativamente fácil vol- 
ver a reconvertir a forma de texto la imagen de TV de 
una página de teletexto; no tiene más que mirar cada uno 
de los 60 puntos que componen cada «posición de carac- 
ter» y compararlos uno por uno con los patrones de pun- 
tos de cada uno de los caracteres disponibles; si la coin- 
cidencia es exacta, habrá identificado el carácter situado 
en esa posición; si ninguno de ellos coincide exactamen- 
te, entonces es que la imagen se ha deteriorado de algún 
modo. El ordenador puede también resolver este caso eli- 
giendo el carácter «más próximo» a la configuración de 
puntos y utilizando alguna medida sencilla de «proximi- 
dad» que pueda calcularse a partir de la configuración de 
puntos de la pantalla y de la configuración de puntos del 


38 John y Catherine Grant 


carácter (por ejemplo contando cuántos de los 60 coinci- 
den exactamente). 

Supongamos ahora que tenemos el mismo texto, pero 
esta vez impreso en una hoja de papel, y que lo ponemos 
delante de una cámara de TV. Imaginemos incluso que 
está escrito a mano en lugar de impreso, o que lo soste- 
nemos boca abajo, invertido. Cualquiera que mire a la 
pantalla de TV dirá que es claramente similar a la forma 
del teletexto, y no tendrá dificultad alguna para locali- 
zar, por ejemplo, la cuarta letra de la tercera línea e iden- 
tificarla como una «e». Ahora bien, cualquiera que inten- 
te programar un ordenador para que examine la imagen 
——<osa que tendrá que hacer punto por punto— trope- 
zará con enormes dificultades, porque el programa tendrá 
primero que decidir dónde está cada letra e identificar 
luego cada una de ellas a partir de una configuración de 
puntos que probablemente será muy diferente de la ma- 
triz de 10 por 6 puntos que forman cada carácter del 
teletexto. 

Si en lugar de una página de texto la imagen reproduce 
por ejemplo una calle, los problemas con que tropieza el 
ordenador son mucho mayores. Una persona no tiene di- 
ficultad alguna para reconocer un automóvil, pongamos 
por caso; pero no es fácil especificar los patrones de lu- 
ces y sombras que permitirían a un ordenador distinguir 
entre la imagen de un automóvil y cualquier otra parte 
de la imagen proyectada en la pantalla. Pensemos que la 
cámara puede estar enfocando el automóvil desde delan- 
te, desde atrás o desde un lado, y que el automóvil puede 
ser de cualquier tipo, desde un pequeño deportivo rojo 
hasta una gran limusina negra. 

El ejemplo demuestra que en la realización de las fun- 
ciones más cotidianas las personas utilizan una gran do- 
sis de información «cultural» (sobre qué es y qué no es 
un automóvil, por ejemplo), información que es imposi- 
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ble almacenar en un ordenador (al menos con la tecno- 
logía actual). Pensemos, por ejemplo, en la cantidad de 
información que haría falta almacenar en un ordenador 
para que un robot bajo su control fuese capaz de ir al fri- 
gorífico y sacar una botella de leche. Esto requiere: 


— el concepto de qué es un refrigerador 

— la capacidad de localizar el refrigerador (lo cual exige 
saber en qué habitación está y ser capaz de distinguir- 
lo del horno o del lavavajillas) 

— el concepto de qué es una botella de leche 

— la inferencia de que es necesario abrir la puerta del re- 
frigerador, y el conocimiento de que es deseable no 
dejarla abierta demasiado tiempo, y 

— la capacidad de localizar el tirador de la puerta y abrir 
ésta, localizar la botella de leche y cogerla. 


Conviene evitar la tentación de imaginarnos los orde- 
nadores (y los robots) como seres estúpidos, y pensar 
más bien que son máquinas bastante complejas. Pedir a 
alguien que te haga un poco de té es un acto muy dife- 
rente del de apretar un botón en una máquina que ex- 
pende esa bebida, y seguirá siéndolo por muy sofistica- 
das que lleguen a ser las máquinas de té. 


Ordenadores domésticos 


Los ordenadores personales normalmente sólo se ocu- 
pan de procesar datos y no controlan ni manipulan di- 
rectamente objetos físicos (exceptuando la impresora que 
imprime los resultados y las unidades de disco o de cinta 
donde se almacenan los datos para su posterior uso). 

En los últimos años se ha hablado de «ordenadores do- 
mésticos» capaces de controlar diversas instalaciones de 
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ración elemental de copiarlos de un lugar a otro de la me- 
moria del ordenador). 

El uso común que se da a los ordenadores, y sobre 
todo a los personales, es el almacenamiento y manipula- 
ción de textos: informes, cartas y otros documentos. Ima- 
ginemos que usted está escribiendo un informe sobre un 
tema determinado. Usted mismo (o su secretaria) escribe 
a máquina un borrador y envía una copia del mismo a va- 
rios colegas para que le den su opinión. Como resultado 
de esos comentarios y de las reflexiones que usted mis- 
mo haya hecho, introduce usted diversas modificaciones 
en el borrador y elabora un original completamente nue- 
vo. Si hay errores de mecanografía, habrá que borrarlos 
o taparlos; se ha calculado que las mecanógrafas invier- 
ten aproximadamente un 30 por ciento de su tiempo en 
corregir errores. Apretar una tecla para imprimir un ca- 
rácter lleva sólo una fracción de segundo, mientras que 
borrarlo y corregirlo requiere mucho más tiempo. Por 
otro lado, las mecanógrafas, por miedo a cometer erro- 
res, escriben mucho menos deprisa de lo que podrían. 


Un «procesador de textos» (o «procesador de pala- 
bras») es un ordenador personal para usos especiales que 
sirve para almacenar y manipular textos; existen asimis- 
mo programas que funcionan en ordenadores personales 
de propósito general y que ofrecen prácticamente las mis- 
mas posibilidades. Con un procesador de palabras no 
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hace falta componer por segunda vez el documento en- 
tero; basta con «editar» el borrador almacenado en el or- 
denador. Los errores de mecanografía se corrigen a la 
misma velocidad con que se cometen, sin más que apre- 
tar una tecla de «omitir» («delete») que significa: «elimi- 
nar ese último carácter del documento»; como a esas al- 
turas no se ha impreso todavía nada sobre papel, tampo- 
co hay nada que borrar realmente. 

El texto se almacena utilizando un número para repre- 
sentar cada carácter, lo cual significa que cada tecla del 
teclado ha de llevar un número distinto; la mayoría de 
las teclas llevan en realidad asociados dos números, uno 
para la mayúscula y otro para la minúscula. Obsérvese 
que las teclas que no hacen que se imprima nada —como 
la «barra espaciadora» (space), «salto de línea» (new line), 
«tabulador» (tab) y «retroceso» (backspace)— también 
tienen su código. La serie de teclas pulsadas se almacena 
en el ordenador en la forma de una secuencia de dichos 
códigos. 

Por ejemplo, en los códigos utilizados en casi todos los 
tipos de ordenadores personales (incluido el Spectrum, 
pero no el ZX81) las letras minúsculas tienen los códigos 
a = 97,b = 98,c = 99, y así sucesivamente hasta y = 121 
y z = 122; el código de las mayúsculas es 32 menos que 
el de la correspondiente minúscula; y los códigos de la 
barra espaciadora y del signo de punto final son 32 y 46 
respectivamente. Así, la expresión 


Ver poco. 


se codificará de esta forma: 


86, 101, 114, 32, 112, 111 , 99, 111, 46 


44 John y Catherine Grant 
Para convertirlo en 
Verte poco. 


exigimos al ordenador que copie todos los códigos (me- 
nos los tres primeros) tres lugares más allá en la memoria 
y que escriba en ese hueco los códigos 116 y 101 (corres- 
pondientes a la «t» y a la «e»); es un ejemplo del proceso 
de «edición» a que nos referimos anteriormente. En la 
práctica, los códigos se desplazarían una posición de 
cada vez: un lugar al teclear la «t» y otro lugar al teclear 
la «e». Supongamos que nos confundimos y que no da- 
mos a la «e» sino a la «w»; el texto quedaría así: 


Vertw poco. 


codificado por el ordenador en la forma 


86, 101, 1149, 116, 119, 32, 112, 111, 


99, 111, 496 


Daríamos entonces a la tecla de borrar (delete) para de- 
cir al ordenador que elimine el 119 que se acaba de in- 
sertar y que vuelva a cerrar el hueco copiando los siete 
números restantes un lugar hacia atrás. Puede que todo 
este trajín de copiar para aquí y para allá parezca un poco 
complicado, pero es el tipo de cosas que los ordenadores 
hacen con extraordinaria rapidez, y para el usuario es mu- 
cho más fácil que tener que decirle de antemano al orde- 
nador cuántos códigos hay que insertar. 

Así pues, las posibilidades que ofrece un procesador de 
textos son: teclear un texto, editarlo, imprimirlo y alma- 
cenarlo para su futuro uso. Para ello se necesita: un te- 
clado para escribir y algún tipo de pantalla para ver lo 
que se ha escrito (como es lógico, todos los ordenadores 
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personales disponen de estos dos elementos); algún tipo 
de dispositivo de almacenamiento que conserve los datos 
al desconectar el ordenador (los discos son la solución 
ideal, aunque un casete es una alternativa aceptable); y 
una máquina de escribir, u otra impresora de calidad ade- 
cuada, para obtener copias impresas de los documentos. 

Este último requisito es el que hace que los ordenado- 
res ZX no sean idóneos para el tratamiento de texto (sal- 
vando lo que diremos en el párrafo siguiente). El orde- 
nador básico no tiene ningún medio de producir una sa- 
lida impresa; la impresora ZX optativa utiliza un papel 
especial, y la calidad de los caracteres que imprime no se 
acerca a la que da una máquina de escribir. No es posible 
imprimir, por ejemplo, encabezamientos de carta ni al- 
baranes; lo más que se puede hacer es imprimir en el pa- 
pel especial aluminizado que utiliza la 1 impresora, recor- 
tar el texto y pegarlo en otro papel mejor —un proceso 
pesado que da como resultado una presentación inacep- 
table en muchos ocasiones. 

A pesar de todo, es posible conectar a un ordenador 
ZX una impresora con calidad de máquina de escribir, 
aunque previamente es preciso montar cierta circuitería 
electrónica específica. El comercio que le venda un dis- 
positivo de este tipo seguramente también le venderá los 
programas de procesamiento de textos correspondientes. 

Los procesadores de textos proporcionan asimismo al- 
gunas otras funciones de carácter más complejo. Una de 
ellas es la posibilidad de efectuar operaciones aritméticas 
con las cifras contenidas en un cuadro o tabla: convertir 
las cifras de una manera a otra en un informe, pongamos 
por caso, o calcular los totales en una factura. Un ejem- 
plo de lo primero sería una tabla que recogiera los ingre- 
sos y los gastos de los diversos departamentos de una or- 
ganización durante los cinco últimos años. Las cifras po- 
drían introducirse en miles de dólares, y la tabla podría 
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mostrar también el gasto en cada caso como porcentaje 
de la correspondiente cifra de ingresos, y los beneficios 
tanto en miles de dólares como en porcentaje del bene- 
ficio obtenido por la organización entera en ese año. 

Los códigos de los caracteres se eligen siempre de 
modo que el valor de un dígito sea igual a la diferencia 
entre su código y el código del dígito cero. Así, en el 
Spectrum el código del cero es 48, «1» es 49, «2» es 50, 
etc. Por ejemplo, si al restar 48 del código de un carácter 
el resultado es 6, entonces el carácter es el «6». Si el re- 
sultado es menor que cero o mayor que 9, el carácter no 
es un dígito. El procesador de textos identificará fácil- 
mente dónde comienza el número (normalmente empe- 
zará con un carácter «tabulador» o incluso con un códi- 
go especial insertado por el usuario para marcarlo) y ave- 
riguará su valor, realizando luego las operaciones aritmé- 
ticas que haya solicitado el usuario. 

Otra de las funciones que se incluyen comúnmente es 
la de buscar errores de mecanografía, verificando que 
cada una de las palabras del documento sea una palabra or- 
tográficamente correcta. El ordenador identifica sin difi- 
cultad las palabras —una palabra es sencillamente un gru- 
po de letras precedido y seguido de códigos que no son 
letras, como por ejemplo un espacio en blanco, línea nue- 
va O signo de puntuación— y las compara con palabras 
almacenadas en un archivo «diccionario». Prever la posi- 
bilidad de letras mayúsculas y minúsculas no plantea nin- 
gún problema (basta, por ejemplo, con convertir todo a 
minúsculas antes de efectuar el cotejo). Es cierto que hace 
falta un poco de cuidado a la hora de organizar las pala- 
bras en el «diccionario» con el fin de poder encontrarlas 
luego con rapidez; pero tampoco es un problema espe- 
cialmente difícil. El sistema tiene que ser capaz de añadir 
nuevas palabras al diccionario: cuando el ordenador tro- 
pieza con una palabra no incluida, pregunta al usuario s1 
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se trata de un error de mecanografía (de ser así se puede 
editar el documento con el fin de corregirlo) o si es una 
palabra nueva que conviene añadir al diccionario. 

Así pues, si por error escribimos «to» en lugar de «te», 
el verificador ortográfico nos dirá que la palabra «to» no 
está en su diccionario, y entonces podremos hacer la ne- 
cesaria corrección; pero si en lugar de «te» escribimos 
por error «tea», el programa no dirá nada, porque «tea» 
forma también parte de su diccionario. 

Para que el programa fuese capaz de detectar ese tipo 
de errores tendría que ser capaz de analizar sintáctica- 
mente las frases del idioma correspondiente, y en muchos 
casos «entenderlas» en cierto sentido. Se trata de una ope- 
ración que no puede reducirse a una secuencia de opera- 
ciones aritméticas elementales; un programa complejo 
ejecutado por un ordenador muy potente podría llegar a 
detectar una proporción grande de errores de ese tipo, 
pero es algo que cae fuera del alcance de los ordenadores 
personales actuales. 


Limitaciones 


Hemos visto que los ordenadores en general son capa- 
ces de realizar cualquier tarea que se pueda describir 
como una secuencia de Operaciones aritméticas elemen- 
tales. Con ello nos referimos no sólo a procesos clara- 
mente numéricos como los que son necesarios en conta- 
bilidad, sino también a almacenar y editar textos e imá- 
genes, representados dentro del ordenador en forma de 
secuencias de números. Por el contrario, son absoluta- 
mente incapaces de manejar la clase de ideas o conceptos 
que las personas aprenden no a través de definiciones ri- 
gurosas sino mediante el ejemplo: sabemos qué es un pe- 
rro porque desde pequeños nos han enseñado perros y di- 
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bujos de perros y nos han dicho «eso es un perro» y he- 
mos aprendido a distinguir un perro de un gato por cier- 
tos detalles como la forma de la cabeza o la textura de la 
piel. Pero ¿cómo traducir esos criterios a números? 

Aunque los ordenadores son capaces de hacer cálculos 
muy deprisa, es muy fácil escribir programas que entra- 
ñen un número gigantesco de cálculos y que por consi- 
guiente exijan mucho tiempo para su ejecución. El efecto 
de incrementar el número de cálculos suele ser impercep- 
tible hasta un determinado punto, para luego hacerse pal- 
pable casi de golpe: si el ordenador realiza 100.000 cál- 
culos por segundo, entonces cualquier cosa que suponga 
menos de 10.000 cálculos parecerá que no lleva ningún 
tiempo; aumentar el número a 50.000 introduce una li- 
gera demora, 100.000 un retardo mucho más percepuble, 
y al llegar a 300.000 se produce ya un retardo importante 
mientras se ejecuta el programa. Así pues, la diferencia 
entre 50 y 500 no es perceptible, mientras que entre 
50.000 y 500.000 resulta espectacular. 

El número de cálculos necesarios para realizar un de- 
terminado trabajo puede también hacerse muy grande 
según cómo se definan las operaciones más complejas 
en función de las más simples. Definamos, por ejemplo, 
las operaciones sencillas como aquellas que consisten en 
100 cálculos cada una (un número nada grande, sobre 
todo si interviene alguna repetición) y las operaciones 
más complejas como aquellas que consisten en 100 de las 
más simples. En esas condiciones, un programa que con- 
sistiera en 100 de las operaciones más complejas —un 
programa no muy grande— haría un total de 1.000.000 
de cálculos al ejecutarlo la máquina. 

En el caso del BASIC ZX tenemos una estructura 
muy de ese tipo: existen operaciones simples como la de 
leer un número que ha sido almacenado en la memoria, 
lo cual implica encontrar dónde está almacenado, o mul- 
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tiplicar dos números entre sí, operación que el ordena- 
dor tiene que realizar mediante una especie de «multipli- 
cación larga» porque no puede manejar el número entero 
de una sola vez. Las operaciones más complejas, que son 
los comandos del BASIC, están definidas en base a esas 
operaciones más elementales, y los programas de BASIC 
se construyen en base a comandos de BASIC. 

Por cada comando del BASIC el ordenador tiene que 
realizar gran número de cálculos individuales, por lo cual 
no puede manejar más que algunos cientos de comandos 
por segundo; tratándose de comandos que hacen abun- 
dante uso de ciertas operaciones «elementales», como 
convertir un número a forma de caracteres (sobre todo 
en el ZX81) y calcular funciones trigonométricas (y en es- 
pecial la potenciación), el ordenador puede tardar más de 
un segundo en obedecerlos. 

Otros ordenadores más potentes son capaces de reali- 
zar más cálculos por segundo, y a menudo necesitan me- 
nos cálculos individuales para efectuar una operación 
concreta. Los medios con que cuentan para traducir ór- 
denes a secuencias de cálculos individuales son con fre- 
cuencia (pero no siempre) más sofisticados que los que 
son posibles con los recursos de que dispone el BASIC 
ZX, con lo cual hacen falta menos cálculos para obede- 
cer una orden o comando determinado. 

Aparte de la velocidad con que el ordenador ejecuta 
los comandos, el aspecto que normalmente tiene más im- 
portancia es la cantidad y el tipo de memoria disponible. 
El único tipo de memoria de que dispone un programa 
en el ordenador ZX está en los chips RAM que se hallan 
dentro del ordenador o (en el caso de la ampliación de 
memoria del ZX81) conectada en la parte posterior. Se 
trata de memoria «volátil»: al desconectar el ordenador 
se borran todos los datos almacenados. 

El tipo más común de memoria «no volátil», capaz de 
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retener los datos al desconectar el ordenador, es el disco 
magnético. Los datos almacenados en disco hay que leer- 
los primero en la RAM para que el ordenador pueda uti- 
lizarlos; pero el ordenador puede leer del disco cualquier 
parte de los datos cuando el programa lo necesita, y tam- 
bién puede almacenar datos actualizados otra vez en el 
disco cuando haga falta; todo ello lo examinaremos más 
detenidamente en el capítulo 10. 


La única clase de memoria no volátil de que disponen 
los ordenadores ZX en el momento de escribir este libro 
es la cinta de casete. Al no estar controlada ésta por el 
ordenador, su uso se halla limitado a las operaciones 
(controladas por el usuario) de almacenar una copia com- 
pleta de un programa en la cinta (con el comando SAVE) 
y de recuperarla (con el comando LOAD). Afortunada- 
mente, al salvar el programa también se salvan los datos 
que guarda en la memoria, de manera que cuando se vuel- 
ve a cargar puede continuar donde se interrumpió (en los 
capítulos 9 y 10 se dan ejemplos de ello); pero mientras 
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el programa se está ejecutando tiene que tener en la RAM 
todos los datos que necesita. Por otro lado, un ordena- 
dor que disponga de un disco no necesita meter todos los 
datos en la RAM, porque al procesar una serie de regis- 
tros de datos sólo necesita tener en RAM los registros 
con los que realmente está trabajando; cuando el orde- 
nador acaba con un registro, lo transfiere otra vez al dis- 
co, cargando otro nuevo en la zona de la RAM que ha 
dejado vacante. 


En la práctica eso signitica que tratándose de aplicacio- 
nes que necesiten conservar los registros, el tamaño total 
máximo de la información (o «base de datos», para uti- 
lizar la jerga apropiada) que puede guardarse es mucho 
más pequeño en los ordenadores ZX que en un ordena- 
dor con un disco. La mayoría de los trabajos de este tipo 
que se realizan con un ordenador son de naturaleza co- 
mercial, como por ejemplo control de stocks, nómina, 
contabilidad y listas de mailing; y es así porque las em- 
presas están en mejores condiciones de justificar el gasto 
en un sistema informático, y además suelen tener gran- 
des cantidades de datos que necesitan mantener actuali- 
zados. Existen sin embargo varias aplicaciones persona- 
les de una base de datos que pueden lograrse con un or- 
denador, entre ellas: direcciones, números de teléfonos, 
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fechas de cumpleaños, recetas, cuentas bancarias, así 
como listas de miembros en clubs y sociedades. 

Muchas de estas aplicaciones suponen cantidades rela- 
tivamente pequeñas de datos y pueden realizarse en un 
ordenador ZX; pero precisamente porque se manejan 
cantidades no muy grandes de datos es muy probable que 
sea igual de fácil utilizar lápiz y papel en lugar de un or- 
denador. Los ordenadores tienen más probabilidades de 
representar una ventaja cuando hay que realizar cálculos 
aritméticos con los datos (como en el ejemplo del capí- 
tulo 10) que cuando los datos consisten simplemente en 
texto, como ocurre en el caso de las listas de direcciones. 
Por otro lado, la memoria del ordenador se llena antes 
con nombres que con números: con un ZX81 y una RAM 
adicional, por ejemplo, se dispondría de unas 13 K de 
RAM para los datos, en las cuales se pueden introducir 
2.500 números pero únicamente 130 nombres y direccio- 
nes o unas 12 recetas de cocina. 


Parte II 


Cómo escribir programas 


Capítulo 3 
Almacenamiento y utilización de los datos 


Si en un trozo de papel escribimos: «Tenemos 17 chis- 
mes en el almacén», esta nota proporcionará información 
a cualquiera que ponga la vista encima y que sepa leer y 
entender castellano. Sin embargo, las palabras que apare- 
cen escritas en la nota no se parecen para nada a 17 chis- 
mes ni a 17 de nada. Un romano podría haber grabado 
en una tablilla de barro «XVII chismes habemus», que 
tiene a su vez un aspecto completamente diferente. 

Lo que queremos decir es que estamos muy acostum- 
brados a almacenar información bajo formas que no guar- 
dan ningún parecido con las cosas descritas. Y muchas ve- 
ces se deja que gran parte de la información se deduzca 
del contexto; por ejemplo, una de las fichas del cajón ro- 
tulada «registros de stocks» podría limitarse a decir 
«chismes...17». 

Los ordenadores almacenan también la información en 
formas que les resultan convenientes (no porque ellos lo 
prefieran, sino porque de ese modo se complican menos 
la vida las personas que los construyen). Como vimos en 
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el capítulo 2, a los ordenadores no se les da bien leer pa- 
labras escritas en trozos de papel, por lo cual la informa- 
ción recibe un formato que permite detectarla y manipu- 
larla electrónicamente con facilidad. 

La información escrita sobre papel se compone de un 
repertorio de formas: 10 dígitos, 26 letras mayúsculas, 26 
minúsculas y otra serie de símbolos como los signos de 
puntuación, los acentos y los signos como «+» y «%». 
Utilizamos las letras para componer palabras, y las pala- 
bras (junto con los signos de puntuación) para componer 
oraciones. Los dígitos los usamos para representar nú- 
meros; como hay diez dígitos diferentes, el sistema de nu- 
meración se llama «decimal». Los romanos no tenían dí- 
gitos propiamente dichos, sino que utilizaban letras del 
alfabeto (1, V, X, L, C, D, M). 

Aparte del alfabeto hay otras formas completamente 
distintas de representar las letras: mediante configuracio- 
nes de puntos en el sistema Braille, o con sonidos cortos 
y largos en el código Morse. Y como es natural, existen 
otras formas de transmitir palabras enteras: la más nota- 
ble es el habla, pero también existen el lenguaje de sig- 
nos, la taquigrafía y los pictogramas. 

En el capítulo 1 vimos que dentro del ordenador la in- 
formación se representa en forma «binaria» como una ca- 
dena de «bits», cada uno de los cuales puede tomar cual- 
quiera de dos valores. Los bits se pueden almacenar en 
medios magnéticos como cintas y discos (para leerlos se 
hace pasar el soporte por una «cabeza lectora» que con- 
vierte la señal magnética en una señal eléctrica; la graba- 
dora de casete es un ejemplo), en la forma de perforacio- 
nes en cinta de papel o fichas, y en la forma de señales 
magnéticas o eléctricas en la «memoria principal» del or- 
denador, a partir de la cual se puede leer directamente 
cualquier bit sin necesidad de mover partes mecánicas 
como en el mecanismo de arrastre de una cinta. 


ZX Spectrum: Manual del programador 57 


Existen diversas maneras de representar los bits sobre 
un medio magnético, aunque los detalles solamente son 
de interés para los ingenieros que diseñan los ordenado- 
res. El ZX81 utiliza un sistema de «impulsos de tono» 
cortos y largos, muy parecidos a los puntos y rayas del 
código Morse, sólo que unas cien veces más rápido; el 
punto representa un O y la raya un 1. En cintas de papel 
y en fichas la perforación representa un 1 y la ausencia 
de perforación un 0. 

Las memorias principales que se utilizaban en los años 
60 consistían en «núcleos» magnéticos que representaban 
el O y el 1 según que estuviesen magnetizados en un sen- 
tido u otro. Los microordenadores utilizan memorias de 
chips de silicio; la manera de almacenar los bits en su in- 
terior varía de unos a otros, pero todos ellos utilizan el 
mismo sistema en las patillas que constituyen la conexión 
eléctrica con el resto del ordenador: «alto» voltaje (por 
encima de 2 V aproximadamente) para representar el 1, 
y «bajo» voltaje (por debajo de 1 V aproximadamente) 
para representar el 0. 

De la misma manera que las letras se agrupan para for- 
mar palabras y frases, los bits se agrupan en «cadenas de 
bits». Un único bit solamente puede ser una de dos co- 
sas: o un 1 o un 0; hay veces en que los datos que nece- 
sitamos almacenar sólo tienen dos posibles valores (ver- 
dadero o falso, presente o ausente, varón o hembra) y en 
ese caso basta con un solo bit. Un par de bits puede te- 
ner cualquiera de cuatro valores (00, 01, 10, 11) y por tan- 
to representa datos que pueden tomar hasta cuatro mo- 
dalidades. Cada bit que se añada a una cadena de bits do- 
bla el número de valores posibles, de modo que tres bits 
tienen ocho valores, cuatro bits 16, y así sucesivamente. 
Un grupo de ocho bits, llamado «byte», puede por tanto 
representar cualquiera de 256 valores. 

Hay que subrayar que así como una cadena de bits pue- 
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de venir representada de formas muy diferentes (eléctri- 
ca, magnética, etc.), también puede representar a su vez 
cosas muy distintas. Los 256 valores de un byte pueden 
representar, por ejemplo, los números enteros del 0 al 
255, o los números enteros del —128 al +127, o los nú- 
meros fraccionarios del O al 255/256 (en pasos de 1/256), 
o los diversos caracteres que puede producir una impre- 
sora O que se pueden presentar en una pantalla de TV, o 
las diferentes operaciones que el ordenador puede reali. 
zar con los datos, o incluso los miembros de cualquier 
conjunto de no más de 256 objetos. En la cadena de bits 
no hay nada que diga qué conjunto de cosas se está re- 
presentando, de manera que un valor concreto del byte 
podría significar 186, ó f—70 Ó (en el ZX81) una letra U 
de color blanco sobre fondo negro, o bien (en muchas 
máquinas, incluido el ZX Spectrum) un signo de dos pun- 
tos, O una instrucción para comparar los valores almace- 
nados en dos lugares determinados del ordenador, o bien 
(en el ZX Spectrum) la instrucción de que un carácter 
debe ir en rojo sobre blanco y emitiendo destellos; o cual- 
quier otro significado que uno quiera darle. El contexto 
es lo único que permitirá decidir cuál de los significados 
es el correcto. 

Casi todos los lenguajes de alto nivel utilizan «tipos de 
datos» para distinguir entre diferentes clases de «valores» 
que pueden representarse. El tipo de datos cumple una 
serie de funciones: define qué valores están incluidos, a 
qué valor corresponde cada posible cadena de bits, qué 
longitud tiene la cadena de bits (es decir, cuántos bits con- 
tiene: normalmente no existe ninguna indicación explíci- 
ta de dónde termina una cadena de bits, a diferencia de 
las palabras, cuyo final viene marcado por un blanco o 
por un signo de puntuación) y qué «operaciones» arit- 
méticas se hallan disponibles. 

En el BASIC ZX hay cuatro tipos de datos: números, 


ZX Spectrum: Manual del programador 59 


cadenas, matrices de números y matrices de caracteres. 
Los números, por ejemplo, ocupan 40 bits y no pueden 
ser mayores que 10% aproximadamente; son exactos 
hasta el noveno decimal, pero todos los números me- 
nores que 107% se almacenan como cero. Las diversas 
partes del programa que ejecutan operaciones aritméticas 
con los números, incluidas aquellas que los convierten de 
y a la representación decimal, necesitan concordar en el 
modo exacto en que cada número es representado por 
una cadena de bits de 40 bits de longitud; pero el usuario 
del ordenador no tendrá normalmente que preocuparse 
de esos detalles. 

Al traducir un programa a código de máquina se deja 
atrás la mayor parte de la información que proporciona 
el tipo de datos. Análogamente, un programa escrito en 
un lenguaje tradicional de propósito general como el BA- 
SIC sólo proporciona una cantidad limitada de informa- 
ción sobre el modo en que el repertorio más bien restrin- 
gido de los tipos de datos se utiliza para representar va- 
lores que se dan en el mundo real. El programador que- 
rrá, por ejemplo, almacenar la cantidad de barra de acero 
hexagonal de una pulgada que cierta compañía tiene en el 
almacén; el ordenador no sabe nada de aceros, barras, he- 
xágonos ni pulgadas, y el tipo de datos probablemente in- 
dicará solamente que se trata de un número. Pero el nú- 
mero podría ser el número de piezas, la longitud total en 
pies, la longitud total en metros, o el peso en toneladas 
imperiales o métricas o toneladas cortas americanas; el 
programador es el responsable de cuidar de que se em- 
pleen las unidades correctas en cada lugar del programa 
donde se utilice el número. 
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Variables 


La mayoría de los lenguajes de ordenador almacenan 
los datos en «variables». Lo mismo que en álgebra, una 
variable es algo que tiene un valor que puede variar; pero 
ahí termina la semejanza. En álgebra tenemos cosas como 


y=ax*+bx+c 


donde a, b y c son «constantes» que tienen determinados 
valores fijos y x e y son «variables», que pueden tomar 
valores dentro de cierto dominio. Podemos trazar una 
gráfica (como hacemos en el capítulo 7) que muestre qué 
valores de y se corresponden con qué valores de x. Una 
vez trazada la gráfica podemos ver a un mismo tiempo 
todos los valores de x y de y. 

El ordenador, por su lado, es en esencia una máquina 
serial, de manera que en ella las variables tienen que to- 
mar los valores de uno en uno. En un ordenador, cada 
variable solamente puede tener un valor en cada momen- 
to; pero puede tener valores diferentes en distintos mo- 
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mentos, y esa es precisamente la esencia del funciona- 
miento de los ordenadores. En BASIC decimos: 


LET variable = valor 


y el ordenador averigua primero el valor y «asigna» lue- 
go el valor a la variable; la variable tiene ese valor hasta 
que se le asigne otro. 

Una expresión que al principio causa perplejidad a 
cualquiera que esté acostumbrado al tipo algebraico de 
variable es 


LET x = x/2 


donde parece como si quisiésemos que x tuviera un valor 
igual a la mitad de sí mismo (es decir, cero). Pero he aquí 
lo que hace el ordenador: toma el valor de x (que se le 
ha tenido que asignar previamente), lo divide entre 2 y 
luego asigna este nuevo valor a x. Dicho con otras pala- 
bras, a x se le asigna un valor nuevo que es igual a la mi- 
tad del que tenía antes. Análogamente 


LET x = x+1 


(que como ecuación algebraica sería absurda) asigna a x 
un valor nuevo que es igual a su antiguo valor más 1. 

Aunque con ello queda descrito adecuadamente cómo 
funciona una variable en términos de las notaciones del 
lenguaje de alto nivel, merece la pena echar una mirada 
a cómo se almacena realmente una variable en el or- 
denador. 

La mayoría de los primeros lenguajes se «compilaban» 
a código máquina; el BASIC, como veremos en breve, es 
una excepción, pero el modo en que utiliza las variables 
es parecido. En un lenguaje compilado las variables tienen 
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a) un nombre 
b) un tipo de datos, y 
c) una representación del valor. 


El nombre se utiliza en el programa para identificar de 
qué variable concreta se está hablando (y por ese motivo 
se denomina a veces un «identificador»), igual que se uti- 
lizaría el nombre «Juan Pérez» para identificar a una per- 
sona determinada. Una cadena de bits representa el valor 
de la variable en cualquier momento, que es el valor que 
se le ha asignado más recientemente. Esta cadena de bits 
es con frecuencia de longitud fija (un número determina- 
do de bits), de manera que se puede apartar un grupo par- 
ticular de celdas de bits (es decir posiciones en la memo- 
ria donde se pueden almacenar bits) para contener ese va- 
lor, y cualquier nuevo valor ocupará exactamente la mis- 
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ma cantidad de memoria que el valor antiguo al que 
reemplaza. 

El tipo de datos describe todo aquello que necesita sa- 
ber el compilador acerca del valor para traducir («com- 
pilar») el programa a código máquina; por ejemplo, cuán- 
tos bits hacen falta y qué instrucciones de máquina uti- 
lizar al realizar operaciones aritméticas con él. 

Así pues, el nombre y el tipo de datos se utilizan al 
compilar el programa (en la «fase de compilación»), mien- 
tras que el valor solamente se halla presente, como es ló- 
gico, cuando se ejecuta el programa (en la «fase de eje- 
cución»). El nombre y el tipo de datos no suelen hallarse 
disponibles en la fase de ejecución, aunque algunos as- 
pectos del tipo de datos estarán implícitos en las opera- 
ciones del código máquina que utilizan la variable. 

En los lenguajes como los que acabamos de describir 
hay dos fases distintas —compilar y ejecutar—, y la fase 
de compilación se completa antes de que comience la fase 
de ejecución. En el BASIC interactivo, como es el caso 
de los ordenadores ZX, el usuario puede teclear parte del 
programa, ejecutarlo, luego teclear otra parte, ejecutarla, 
etc. Evidentemente, la segunda parte no se compila hasta 
haberse ejecutado la primera, por lo cual no es posible 
descartar la información relativa al «nombre» y «tipo» al 
final de la compilación en el caso de que más tarde se re- 
quiera más compilación. 

De hecho, la mayoría de los BASIC, entre ellos el de 
los ZX, difieren fundamentalmente de los lenguajes an- 
teriores, en el sentido de que no se compilan sino que se 
interpretan: en lugar de traducir las instrucciones del pro- 
grama a las instrucciones en código máquina que serán obe- 
decidas más adelante, el ordenador las va obedeciendo so- 
bre la marcha. Quiere decirse que no es necesario hallar 
espacio en la memoria del ordenador para todas las ins- 
trucciones de la máquina, y el ordenador no tiene que 
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procesar ninguna de las instrucciones del programa que 
no van a obedecerse (es decir, aquellas que están ahí para 
ocuparse de situaciones que no se plantean en esa pasada 
concreta del programa). Por otro lado, una instrucción 
que ha de ser obedecida múltiples veces tiene que ser tra- 
ducida múltiples veces también, mientras que en un len- 
guaje compilado sólo se traduce una vez. 

(Los BASIC de los ZX son de hecho bastante eficien- 
tes en ese respecto. Palabras claves como PRINT se al- 
macenan en la forma de un único código, de manera que 
el ordenador puede consultar inmediatamente en una ta- 
bla qué tipo de acción tiene que emprender, en lugar de 
tener que averiguarlo a partir de cada una de las letras P, 
R, L N, T. Los códigos solamente se traducen a letras 
cuando el programa se lista en la pantalla o en la impre- 
sora. Los números se traducen a binario cuando se te- 
clean y la forma binaria se almacena junto con la forma 
carácter en el programa.) 

Así pues, en los ordenadores ZX las tres partes de la 
información sobre una variable se almacenan juntas y es- 
tán disponibles todo el tiempo. Dentro del programa, las 
variables de cadena se distinguen de las variables numé- 
ricas por medio del signo «$» al final del nombre, y las 
matrices (véase más adelante) se distinguen por los pa- 
réntesis que siguen al nombre, de modo que el ordena- 
dor sabe siempre cuál es el tipo de datos de una variable 
sin necesidad de ninguna información sobre el «contex- 
to». En muchos lenguajes es preciso «declarar» cada va- 
riable antes de que pueda ser utilizada; la declaración es- 
pecifica el tipo de datos. Así, en Algol 68 


BEGIN REAL x, STRING s 


«declara» que la variable x será del tipo «real» (un núme- 
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ro de coma flotante) y que la variable s será una cadena 
de caracteres. Entonces podremos decir 


x= 3; s 6:= "Hola" 
pero no 
s11= 5 


que sería un intento de asignar a s un valor que no puede 
representar. En el BASIC no existen declaraciones (salvo 
en la medida en que el comando DIM declara el tamaño 
de una matriz, tal y como se menciona más adelante), 
sino que el tipo de datos se deduce de la forma del nom- 
bre: si termina en un signo «$» es una cadena; si no, es 
un número. Por lo cual podemos decir 


LET s$ = "Hola" 


pero no 


LET sk = 5 
LET s = "Hola" 
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Obsérvese asimismo que s y s$ son variables diferentes 
a pesar de que sus nombres son parecidos. 

En los BASIC de los ZX, y en la mayoría de los de- 
más BASIC, las variables se guardan todas juntas en una 
parte de la memoria, y cuando se utiliza una variable que 
no se ha mencionado hasta entonces se añade a la parte 
superior de la pila. El proceso tiene algunas limitaciones, 
como veremos a continuación. 

Si uno intenta usar (no asignar) el valor de una varia- 
ble que no existe, los BASIC ZX emiten una señal de 
error. La razón es que se supone que hemos cometido al- 
gún error, como escribir mal el nombre u olvidar intro- 
ducir el comando que debería haberle asignado un valor. 
Por consiguiente, la primera vez que el ordenador se en- 
cuentre con un nombre (distinto de una matriz) tiene que 
ser a la izquierda del signo «igual» en un comando LET 
o: FOR. 

Algunos BASIC suponen sencillamente que el valor es 
cero cuando la variable problemática es un número, o la 
cadena «vacía» (la que no contiene ningún carácter) si se 
trata de una cadena. Lo cual resulta útil cuando es eso lo 
que uno intentaba; pero de no ser así puede hacer que el 
programa se comporte de una manera muy extraña. 

Una matriz es un grupo de variables del mismo tipo, 
reunidas bajo un mismo nombre; de las matrices nos ocu- 
paremos con más detenimiento en el capítulo 5. El grupo 
entero se crea a un mismo tiempo mediante un comando 
DIM, que especifica el número de variables que se nece- 
sitan. Como al mismo tiempo no se especifica ningún va- 
lor, a todas las variables se les asigna un cero (si son nu- 
méricas) o el carácter «espacio en blanco» (en caso con- 
trario). Así pues, la primera vez que el ordenador se en- 
cuentre con un nombre de matriz tiene que ser en un co- 
mando DIM; pero una vez que ha obedecido el coman- 
do DIM es posible utilizar los «elementos» (las diversas 
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variables de que se compone la matriz) sin tener que asig- 
narles antes un valor mediante un comando LET. 


Hay algunos lenguajes que permiten manejar la matriz 
entera como si fuese un único valor, asignándoselo, por 
ejemplo, a otra matriz. Al fin y al cabo, su representa- 
ción es sencillamente una cadena de bits bastante grande 
(por lo común), que da la casualidad de que consiste en 
los valores de los elementos uno tras otro. También es 
muy corriente el poder agrupar variables de tipos dife- 
rentes en un «registro» que puede tratarse como si fuese 
un solo valor; las variables de que consta son en este caso 
los «campos» del registro. El BASIC, sin embargo, no 
ofrece esas posibilidades. 


Asignaciones 


Anteriormente afirmamos un tanto alegremente que los 
comandos de asignación son de la forma 


LET variable = valor 


sin hablar para nada de cómo se expresa el valor. Los ti- 
pos más sencillos de valor son las variables y los «litera- 
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les». El valor actual de una variable se indica sin más que 
escribir el nombre de la variable, como en 


LET x= y 


que asigna a la variable x una copia del valor que hay en 
la variable y. (En BASIC esto siempre hará que los valo- 
res de x e y sean la misma cadena de bits; pero en otros 
lenguajes es posible que x e y sean de tipos diferentes: 
quizá dos modos distintos de representar números, en 
cuyo caso el ordenador traduciría el valor de una de las 
representaciones a la otra.) 

Así pues, el valor en una variable se representa indi- 
rectamente dando el nombre de la variable; un mismo 
nombre puede corresponder en dos momentos distintos 
a valores diferentes si entremedias se ha alterado la 
variable. 

Un literal es un valor que está representado directa- 
mente, como tal, en el texto del programa, y por consi- 
guiente es siempre el mismo valor cada vez que se obe- 
dece el comando que lo contiene. En BASIC hay solo 
dos tipos de literales, números y cadenas, como por 
ejemplo 


LET x = 32 
LET q$ = "Que?" 


Los números están naturalmente en notación decimal, 
y pueden ser un número entero, como en el ejemplo an- 
terior; o un número con decimales, como 3.162; o lo que 
muchas veces se denomina «notación científica», en la 
cual se utiliza la letra E para significar «multiplicado por 
diez elevado a». Diez elevado a n es el número que con- 
siste en un 1 seguido de » ceros, y diez elevado a —n es 
un 1 con » ceros delante y una coma o punto decimal des- 
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pués del primero. Así, 5.4E3 es 5.4 Xx 1000 ó 5400, y 
47E—6 es 47X0.000001 ó 0.000047. El Cuadro 3.1 mues- 
tra la correspondencia entre las potencias de diez y los 
prefijos utilizados en el sistema métrico y en el SI; por 
ejemplo, 1.25 centímetros son 1.25E—2 metros y 94 MHz 
son 94E6 Hz. 


Cuadro 3.1. Prefijos SI 


d deci-  E-1 dadeka- El 
c centi-  E-2 h hecto-  E2 
m milli- E-3 k  kilo- E3 

myria-  E4 
p micro- E-6 M mega- E6 
n nano- E-9 G giga-  E9 
p pico- E-12 T tera- Ele 
f femto- E-15 P peta-  El5 
a atto- E=*8 E 


exa- E18 


Las cadenas literales se incluyen siempre entre comi- 
llas. Estas notaciones se utilizan en casi todos los lengua- 
jes de ordenador. 

Hasta ahora hemos visto cómo una variable puede al- 
macenar números y cadenas de caracteres que hayamos 
tecleado y copias de cosas que han sido almacenadas pre- 
viamente en otras variables. Pero un ordenador debería 
ser capaz de computar, o deducir, nuevos valores a partir 
de valores ya existentes; la notación que se utiliza para 
ello es lo que se denomina una «expresión». 

Las expresiones se construyen a base de operaciones 
aritméticas y similares; los símbolos que indican qué ope- 
raciones realizar se llaman «operadores», y los valores so- 
bre los que actúan las operaciones reciben el nombre de 
«operandos». Por ejemplo, en la expresión x + 3 el ope- 
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rador es el signo «más», mientras que los operandos son 
el valor de la variable x y el valor literal 3. La operación 
que hay que realizar es sumar estos dos valores, y el va- 
lor de la expresión entera es el resultado de esa opera- 
ción; de modo que si el valor actualmente almacenado en 
x es 5, entonces el valor de la expresión es 5 + 3, ú 8. 

Una expresión puede tener más de un operador, como 
en 


ZP EDAASS 


pero queda aún por decidir cuáles son los operandos. ¿Es 
2 + 3 un operando del operador de multiplicación, de 
manera que el valor es 5x 5625? ¿O es 3* 5 un ope- 
rando del operador de adición, de manera que el valor es 
25 150.177 

Hay lenguajes que realizan todas las operaciones en el 
mismo orden en que aparecen, de izquierda a derecha, de 
modo que en el ejemplo anterior se efectuaría primero la 
suma, y el resultado, 5, sería uno de los operandos de la 
multiplicación. Hay uno o dos lenguajes que efectúan las 
operaciones de derecha a izquierda, mientras que la ma- 
yoría (entre ellos el BASIC) utilizan el concepto de «prio- 
ridad». Cada operador tiene una «prioridad», y los ope- 
radores que tienen la máxima prioridad son los que se rea- 
lizan primero. Los operadores con igual prioridad se rea- 
lizan por orden de izquierda a derecha. La multiplicación 
tiene una prioridad superior a la de la suma, de modo 
que se calcula primero 3 * 5, cuyo resultado, 15, pasa a 
ser luego uno de los operandos del signo de suma; el va- 
lor de la expresión sería 17. 

Lo mismo que en aritmética o en álgebra, los parénte- 
sis se pueden utilizar para agrupar varios elementos en 
un solo operando, como por ejemplo: 
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donde la expresión entre paréntesis es un operando de la 
multiplicación y el valor de la expresión entera es 25. 
Evidentemente . 


32)%X5 


no es una expresión válida y por tanto no puede ser un 
operando de «+». l 

Las prioridades suelen establecerse normalmente de 
manera que una expresión sin paréntesis se evalúe de una 
forma que resulte lógica para el programador. La multi- 
plicación y la división tienen mayor prioridad que la adi- 
ción y la sustracción, de modo que una expresión como 


ax + b - 0c/x 


se calcula de la misma forma que la expresión algebraica 
siguiente: 


ax + b-— cx 


Además de éstos existen otros operadores, concreta- 
mente para comparar valores y ver si uno es mayor que 
otro, etc. y para combinar los resultados de varias com- 
paraciones; sus prioridades están recogidas hacia el final 
del manual que acompaña al ordenador. 


72 John y Catherine Grant 


Aunque en rigor no se necesiten, nunca está de más uti- 
lizar paréntesis para indicar el orden en que deben efec- 
tuarse las operaciones (excepto quizá en el caso de que 
el ordenador esté tan lleno que no haya sitio para ellos). 
Cuando haya duda (o cuando la duda se le pueda plan- 
tear a alguien que lea el programa) es mejor utilizar 
paréntesis. 

Hay algunos lenguajes (concretamente el POP-2 y el 
Forth) y algunas calculadoras que utilizan la «notación 
polaca inversa» para las expresiones. En la notación po- 
laca, que se inventó con vistas sobre todo a la lógica for- 
mal, los operadores anteceden a los valores, como por 
ejemplo: 


E NES o bien XxX +235 


que significan «sumar 2 al resultado de multiplicar 3 por 
5» y «multiplicar el resultado de sumar 2 y 3 por 5», res- 
pectivamente. La notación polaca inversa coloca el ope- 
rador al final, como por ejemplo 


235% + o bien 2 Y +:5 % 


que es una forma más conveniente para los ordenadores. 
Tanto la notación polaca directa como la inversa tienen 
la ventaja de no necesitar ni paréntesis ni prioridades; el 
orden en que aparecen los operadores y los operandos de- 
fine unívocamente en qué orden hay que realizar las ope- 
raciones y cuáles son sus operandos. 

Los operadores como los de suma o multiplicación se 
denominan operadores «binarios» porque tienen dos ope- 
randos. Existen también operadores «unarios» que tienen 
un solo operando; se denominan también operadores 
«prefijos» si se escriben delante del operando, y opera- 
dores «postfijos» si se escriben detrás. Los operadores bi- 
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narios (excepto en la notación polaca) se denominan tam- 
bién operadores «infijos», porque van escritos entre sus 
operandos. 


El BASIC no tiene ningún operador postfijo; un ejem- 
plo de operador postfijo en las matemáticas ordinarias es 
el signo de exclamación utilizado para indicar «factorial 
de», como por ejemplo «4!», que significa «factorial de 
4,64 x 3 x 2 x 1. En un lenguaje de programación que 
reconociera ciertas magnitudes (como la longitud y el 
peso) como tipos de datos por derecho propio (en cuyo 
caso el ordenador podría ser de mucha más utilidad en 
el ejemplo de las barras de acero que vimos antes en este 
mismo capítulo) cabría definir operadores postfijos, 
como por ejemplo «km» o «kg», con el fin de convertir 
números ordinarios en medidas de longitud, peso, etc. 
Sin embargo, no existe por el momento ningún lenguaje 
de esas características. 

El ZX BASIC tiene dos operadores prefijos del tipo 
matemático ordinario: «menos» y «NOT». (Este último 
se utiliza en la aritmética booleana, descrita en el capítu- 
lo 4.) Hay también muchos operadores prefijos que son 
«funciones», como SIN y COS y LOG; en la mayoría 
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de los BASIC se escriben con su operando entre parén- 
tesis, como si fuesen elementos de una matriz: 


SIN(x) o bien LOG(COS(x)) 


pero en el ZX BASIC tienen la categoría de operadores, 
de manera que se puede utilizar la forma algo más natu- 


ral de 


SIM x o bien LOG COS x 


Los operadores prefijos tienen que tener prioridad, 
igual que la tienen los operadores infijos, porque 


sIN x + y podría significar SIM (x+ty) 


o bien (SIM Ox) + y 


y de hecho la mayoría de los operadores prefijos tienen 
una prioridad mayor que cualquiera de los operadores in- 
fijos, de manera que es ese último significado el que se 
utiliza. Una excepción es NOT, que aunque tiene una 
prioridad más alta que los operadores booleanos infijos 
está por debajo de los demás operadores infijos por una 
razón que se hará clara en el capítulo 4; la segunda ex- 
cepción es la operación «menos», que está por debajo de 
la potenciación, de modo que por ejemplo —x f 2 signi- 
fica —(x 7 2) o bien —x?, y no (—x)? que sería igual a 
(=x) X (=x) Ó +x?. 


La salida de los resultados 
Hasta ahora hemos visto cómo se le pueden especifi- 


car valores al ordenador, cómo calcular otros valores a 
partir de ellos y cómo almacenar todos esos valores en va- 
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riables. Para utilizar el ordenador como una simple cal- 
culadora necesitamos evidentemente una función más: la 
capacidad de presentar visualmente los valores para que 
el usuario los pueda leer, y eso es lo que se consigue con 
el comando PRINT. 

El comando PRINT consiste simplemente en la pala- 
bra PRINT (para ver los resultados en la pantalla de TV; 
LPRINT para verlos en la impresora) seguida de los va- 
lores que uno quiere que se impriman, separados por 
puntos y comas. Los valores de cadena se presentan vi- 
sualmente enviando a la pantalla (o a la impresora) los ca- 
racteres que contienen. Cabe imaginar que cada uno de 
los caracteres representa una tecla oprimida en una má- 
quina de escribir eléctrica; la mayoría son «caracteres de 
imprenta» y hacen que se imprima el carácter pertinente 
y que la «posición de impresión» (la posición donde irá 
el siguiente carácter en el caso de que sea también un ca- 
rácter de imprenta) avance un lugar; pero hay otros como 
el «espacio en blanco» (que mueve la posición de impre- 
sión hacia adelante sin imprimir nada) y, en el Spectrum, 
los códigos que modifican el color, etc. de los caracteres 
de imprenta siguientes. 


Los números son convertidos a cadenas, y los valores 
de cadena resultantes se tratan como dijimos anterior- 
mente. (Existe también un operador prefijo STR$ que 
realiza la misma conversión cuando uno la necesita den- 
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tro de un programa.) A diferencia de algunos BASIC, el 
del ZX no incluye ningún carácter «espaciador» en la ca- 
dena en la que se convierte un número, de manera que 


LET x = 4 LET z= 92 
LET y = 2 y PRINT z 
PRINT x5y 


imprimen ambas la misma cosa. Si en lugar del punto y 
coma se utiliza una coma, se insertará como mínimo un 
espacio entre ambos números, concretamente los espa- 
cios suficientes para llevar la posición de impresión al 
centro de la línea o al comienzo de la línea siguiente (lo 
que venga antes). A menudo habrá que insertar algún tex- 
to entre dos números, como por ejemplo en 


PRINT nj" huevos a "jc5j"p/dcna cuestan ”; 
n*X*c/12;5"p" 


lo cual plantea una serie de cuestiones que merece co- 
mentar. En los trozos de texto se incluyen espacios en 
blanco con el fin de separar los números de las palabras, 
de modo que si n es 6 y c es 78, por ejemplo, la salida 
será la siguiente 


6 huevos a 78p/decna cuestan 39p 
y no (por ejemplo) 
éhuevos a78p/decna cuestan39p 


Aunque esto parezca obvio a la vista de los ejemplos 
que hemos puesto aquí, resulta sorprendente la cantidad 
de veces que se olvida al escribir un comando PRINT. 
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El motivo de que el ZX BASIC no inserte espacios en 
los números es que si no la salida podría tener el siguien- 
te aspecto: 


6 huevos a 78 p/dcna cuestan 39 p 


e insertar espacios en una salida PRINT es más fácil que 
suprimirlos. Cualquiera de los formatos anteriores ante- 
riores es preferible a 


número de huevos 
costo (p/dcna) 
costo total (peniques) 


Monon 
y 
[90] 


39 


que quizá fuese conveniente en los tiempos del tabulador 
de fichas perforadas, y que sigue siendo demasiado fre- 
cuente hoy día. Finalmente, observemos que (a diferen- 
cia del Fortran, por ejemplo) el BASIC permite tanto va- 
lores calculados como simplemente valores de variables 
en los comandos PRINT, y el ejemplo anterior es más efi- 
ciente (en cuanto a espacio para almacenar el programa, 
tiempo para ejecutarlo y a reducción de la cantidad de 
«barahunda» con que tiene que verse el lector humano) 
que 


LET total = nxXxc/12 
PRINT nj" huevos a "jcj3"p/dcna cuestan "¡total;"p" 


que utiliza dos comandos en lugar de uno e introduce 
una variable adicional. 


Capítulo 4 
Entrada de datos y decisiones 


En el capítulo 3 examinamos los comandos LET y 
PRINT, que permiten utilizar el ordenador de forma 
muy parecida a como se utiliza una calculadora de mesa. 
Es decir, se pueden realizar cálculos (que se introducen 
en forma de expresiones a través del teclado) y los resul- 
tados se pueden visualizar en la pantalla de TV (con el co- 
mando PRINT) o en la impresora (con LPRINT, que es 
exactamente igual que PRINT) o se pueden almacenar 
para su posterior uso (con LET). 

Los programas constan de secuencias de comandos: 
como es natural, aparte de LET y de PRINT y LPRINT 
existen otros comandos, muchos de los cuales los intro- 
duciremos más adelante en esta sección; todos ellos están 
perfectamente descritos en el manual que acompaña al or- 
denador. El programa se compone de «líneas»; en el 
ZX81 cada comando tiene que ir en una línea, mientras 
que en el Spectrum se pueden escribir varios comandos 
en la misma, incluyendo entre ellos el signo de dos pun- 
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tos. Cada línea tiene un número de línea que indica el lu- 
gar que ocupa en el programa; si tecleamos una línea sin 
número de línea, el ordenador la obedecerá inmediata- 
mente y la descartará después; pero una línea que vaya 
precedida de un número quedará incorporada al progra- 
ma y no será obedecida en ese mismo momento. 

El manual describe los detalles de cómo teclear el pro- 
grama. La pantalla se divide en una parte superior, que 
es como una ventana a través de la cual se puede ver el 
programa, y un área en la parte de abajo en la que se ex- 
hibe la línea que se está tecleando en ese momento. Por 
consiguiente, cuando se modifica el programa (insertan- 
do o eliminando o sustituyendo una línea) se hace pre- 
sente inmediatamente el resultado del cambio. Esto con- 
trasta con muchos BASIC en los cuales la pantalla mues- 
tra únicamente las últimas líneas que se han tecleado, aun- 
que existe un comando que permite obtener en la panta- 
lla un «listado» completo del programa. Algunos orde- 
nadores permiten alterar este listado sin introducir las co- 
rrespondientes alteraciones en el programa. 

Otra característica del ZX BASIC es que el programa 
sólo admite las líneas si su sintaxis es correcta, mientras 
que otros BASIC aceptan cualquier cosa o no lo com- 
prueban hasta que se está ejecutando el programa. La sin- 
taxis se ocupa de la manera de juntar las palabras, etc. 
para formar comandos; la semántica se ocupa del signi- 
ficado del comando, y la corrección semántica depende 
normalmente del contexto dentro del cual se obedece el 
comando. Así 


LET x$5 = SQR y y LET > THEN 1F 


son sintácticamente incorrectas y serían rechazadas, 
mientras que 
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es sintácticamente correcta y se la acepta en el programa, 
aunque puede fallar en el momento de la ejecución si el 
valor de y es negativo o si y no existe siquiera. Esto es 
válido aun en el caso de que la semántica resulte que no 
depende en la práctica del contexto, de manera que 


LET x = SQR -1 


se acepta como sintácticamente correcta a pesar de que 
siempre fallará en el momento de la ejecución. 

En los lenguajes naturales, como el inglés o el castella- 
no, también hay sintaxis y semántica. Por ejemplo: «El 
perro de Roque en la roca» no es, sintácticamente, una 
oración, porque no posee verbo. «El cielo verde duerme 
furiosamente» es sintácticamente correcto, pero semánti- 
camente no parece tener sentido. Si el ordenador rechaza 
comandos incorrectos que no entiende no es porque ob- 
tenga una satisfacción pedante de obligarnos a repetir y 
corregir la acción anterior, sino porque cualquier sentido 
que pueda extraer del comando podría no coincidir con 
lo que el usuario pretendía; por ejemplo 


LET x$ = SQR y 


podríamos haberlo escrito por error al querer teclear 


LET y% = STRS$ y 10) bien LET x% = STR%$ SQAR y 
Oo bien  LeET x = ser y 


y el ordenador no es lo bastante inteligente para poder 
decidir que una de esas posibilidades es más verosímil 
que las demás. . 

De la misma manera que el texto del presente libro va 
dividido en párrafos, es útil dividir visualmente los pro- 
gramas en secciones diferentes. El comando REM (abre- 
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viatura de remark, «observación») cumple esta función: 
ordena a la máquina que ignore el resto de la línea, que 
puede utilizarse así para describir —como ayuda para el 
usuario— qué es lo que realiza el siguiente trozo de pro- 
grama. (Obsérvese, en el caso del Spectrum, que el orde- 
nador ignora siempre el resto de la línea, a pesar de que 
si tecleamos dos puntos como parte de la observación 
cambia el modo K como si estuviese esperando otro 
comando.) 


En el Spectrum se puede insertar una línea en blanco 
en el programa tecleando una línea que consista en el 
número de línea y un espacio en blanco. (Detrás del nú- 
mero de línea tiene que ir algo, porque si no la línea con 
ese número quedará suprimida del programa y no se in- 
sertará nada.) En el ZX81, lo más parecido a una línea en 
blanco es una línea que contenga la palabra clave REM y 
nada más. 

Desdichadamente, aun teniendo cuidado de diagramar 
el programa de una manera «bien estructurada», no es po- 
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sible superar la naturaleza esencialmente «sólo escritura» 
del BASIC (véase el capítulo 1). Pero aunque no poda- 
mos facilitar a otra gente la tarea de entender cómo fun- 
ciona un programa, sí que podemos facilitarles la tarea de 
utilizarlo sin necesidad de mirar para nada las líneas de 
comandos de que está compuesto. 

En muchas ocasiones son dos las personas que tienen 
que ver con un programa: el programador que lo escribe 

y el usuario que lo ejecuta. Lo único que quiere el usua- 
rio es procesar sus datos; lo que le interesan son los va- 
lores de los datos y no las variables que el programador 
elija para almacenarlos. Además no querrá teclear más de 
lo que sea necesario. 

El comando INPUT es el medio utilizado por el usua- 
rio para introducir los datos en el ordenador. Con el co- 
mando LET el programador puede asignar en cualquier 
momento un valor a una variable: el programador con- 
trola el orden en que se realizan las asignaciones, y se su- 
pone que comprende los efectos de cada una de ellas. Con 
el comando INPUT sigue siendo el programador quien 
decide a qué variables hay que asignarles un valor y en 
qué etapa; pero es el usuario quien proporciona los va- 
“lores asignados. 

Un comando INPUT consiste en la palabra clave IN- 
PUT y en una variable (aunque en el Spectrum caben 
también otras formas más elaboradas), y el efecto es exac- 
tamente el mismo que el de un comando LET, salvo que 
el valor lo teclea el usuario en lugar de estar incluido 
como parte del comando. En la mayoría de los BASIC 
(y de hecho en la mayor parte de los demás lenguajes de 
ordenador) el valor introducido tiene que ser un literal, 
pero en el ZX BASIC puede ser cualquier cosa que pue- 
da aparecer a la derecha del signo igual en un comando 
LET. Esto es útil cuando se quiere teclear valores como 
PI/2 y cuando el usuario conoce los nombres de algunas 
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de las variables disponibles en aquel momento en el pro- 
grama; pero también permite hacer trampas, por ejemplo 
en programas de prácticas de aritmética que consisten en 
preguntar el resultado de una serie de sumas. (En el Spec- 
trum es posible evitar este problema utilizando INPUT 
LINE, comprobando que la línea no contiene más que dí- 
gitos y usando luego VAL para convertirlo en un núme- 
ro; el input de cadena ordinario no sirve aquí, porque el 
usuario puede borrar las comillas y utilizar STR$. Claro 
está que en muchas de las situaciones en que se utiliza 
ese tipo de programa el alumno no tiene de todos modos 
mucho que ganar haciendo trampas.) 

Una vez obedecido el comando INPUT, el usuario en- 
cuentra en la parte inferior izquierda de la pantalla el cur- 
sor «L», entre comillas si lo que se pide es una cadena o 
sin nada si es un número. El programador, que está fa- 
miliarizado con el funcionamiento del programa, olvida- 
rá con mucha frecuencia que el usuario no tiene muchas 
veces ni idea de lo que le está pidiendo el ordenador y 
que por tanto no sabrá qué responder. Por consiguien- 
tes, es importante acostumbrarse a incluir siempre un 
mensaje en la pantalla indicando qué valor es el que se 
pide. En el Spectrum se puede hacer como parte del co- 
mando INPUT, pero en el ZX81 es preciso hacerlo co- 
locando delante del comando INPUT un comando 
PRINT. Es importante redactar el mensaje en una forma 
que la entienda el usuario. Supongamos que cierta varia- 
ble r contiene el tipo de interés porcentual sobre una in- 
versión: un mensaje apropiado para solicitar r sería «Te- 
clee el tipo porcentual de interés anual» o bien «¿Tipo de 
interés (tanto por ciento anual)?» pero desde luego no 
«¿Valor de r?» a pesar de que es así como lo piensa el 
programador. 
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Decisiones 


Cuando se está utilizando el ordenador como calcula- 
dora, los comandos se teclean uno por uno, y cada uno 
de ellos se obedece antes de que se teclee el siguiente. No 
hay una distinción clara entre los papeles de programa- 
dor, que decide qué comandos debe obedecer el ordena- 
dor, y de usuario, que suministra los datos para dichos 
comandos. Los resultados de comandos anteriores, o los 
datos no directamente utilizados en los cálculos, pueden 
influir en la elección de los comandos que se den a con- 
tinuación. Por ejemplo: el impuesto sobre la renta podría 
calcularse a tipos diferentes según el importe total de la 
renta; los intereses sobre diferentes clases de cuentas ban- 
carias podrían calcularse de modos diferentes, etc. 

Cuando la acción que debe emprender el ordenador de- 
pende de factores que no serán conocidos hasta que se 
haya ejecutado el programa, el programador tiene que 
prever todas las circunstancias posibles. (Los programas 
fallan muchas veces por surgir una combinación de cir- 
cunstancias en las que no había pensado el programador.) 
El comando IF se utiliza para conducir al ordenador ha- 
cia un curso de acción u otro según cuál sea cierto valor 
que tiene que calcular previamente. Esto es sólo útil si el 
valor calculado no se conoce en el momento de escribir 
el programa: por ejemplo, si es un valor que introduce 
el usuario al ejecutar el programa (o que es calculado a 
partir de él). Otro ejemplo muy común se da en los «bu- 
cles», que son secuencias de comandos que se ejecutan re- 
petidas veces hasta que se cumple cierta condición: al fi- 
nal de la secuencia el ordenador comprueba si debe re- 
petirla o por el contrario pasar a la siguiente parte del pro- 
grama. Un caso algo diferente es cuando el programador 
especifica diversos cursos de acción posibles; según las 
circunstancias se tomará uno u otro; ambos se seguirán 
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al ejecutarse el programa, sólo que en momentos diferen- 
tes. 
El comando IF es de la forma 


IF condición THEN linea 


donde «línea» representa cualquier cosa que pudiese ser 
una línea de comando (aunque sin número de línea, na- 
turalmente). Si se satisface la condición, se obedece la lí- 
nea que sigue a THEN; en caso contrario se ignora, igual 
que se ignora una línea que comienza por REM. Por 
ejemplo, 


1F x=y THEN LET x=5 


comprueba si los valores de x e y son iguales; de ser así, 
se asigna 5 a x; pero si no, se ignora el comando LET y 
x retiene su antiguo valor. En el Spectrum, donde es po- 
sible colocar varios comandos en una misma línea, hay 
que tener en cuenta que en el caso de que no se satisfaga 
la condición se ignora la línea entera; la mayoría de los 
BASIC que permiten incluir varios comandos en una lí- 
nea operan así; pero hay algunos en los que solamente se 
ignora el primer comando después del THEN, de modo 
que 


IF x=y THEN LET x=5: LET y=4 


asignaría 4 a y independientemente de que x e y fuesen o 
no iguales. La situación es bastante parecida a la priori- 
dad de los operadores en las expresiones; en el Spectrum 
los dos puntos tienen una prioridad superior que THEN, 
mientras que en algunos BASIC tienen una prioridad 
menor. 

Algunos BASIC, así como otros muchos lenguajes, 
permiten incluir una cláusula ELSE que solamente se 
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obedece en el caso de no satisfacerse la condición; por 
ejemplo: 


IF x>0 THEN LET y=x ELSE LET y=-=>x 


pero el ZX BASIC no brinda esta posibilidad. 


La condición adopta normalmente la siguiente forma: 
valor comparación valor: 


en donde los dos valores son del mismo tipo (números o 
cadenas) y el operador de comparación es uno de los 
siguientes: 


<> 


que significan «igual a», «mayor que», «menor que», 
«mayor que o igual a», «menor que o igual a» y «mayor 
o menor que», respectivamente. Los tres últimos pueden 
interpretarse también como «no menor que», «no mayor 
que», y «no igual a». 

Es conveniente interpretar los operadores de compara- 
ción como si proporcionaran un valor «booleano»: VER- 
DADERO o FALSO, lo primero si se satisface la con- 
dición, lo segundo si no se satisface. (Más adelante, en 
este mismo capítulo, diremos más sobre la aritmética 
booleana.) Así, x = 5 es VERDADERO si x contiene el 
valor 5, y FALSO si x contiene cualquier otro valor; 
x>3 es VERDADERO si x contiene un valor mayor 
que 3 (por ejemplo, 4 ó 597.6 ó 3.000001), y FALSO si 
contiene el valor 3 o cualquier otro valor menor que 3 
(como 0 ó 2.9 ó —47). Si la condición es VERDADERA, 
se obedece la parte que viene detrás de THEN; si la con- 
dición es FALSA, se ignora. 

Los operadores de comparación pueden aparecer en ex- 
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presiones de la misma manera que los operadores aritmé- 
ticos ordinarios; los operadores de comparación tienen 
una prioridad más baja, de modo que expresiones como 


xy > n+3 


tienen un significado evidente. 

En algunos lenguajes se utiliza un tipo de datos espe- 
cial para los valores booleanos, pero en el ZX BASIC se 
almacenan como números: cero representa FALSO y 
cualquier otro valor representa VERDADERO. Cual- 
quier valor booleano generado por el ordenador utiliza 1 
para representar VERDADERO. 

Los valores booleanos se pueden almacenar en varia- 
bles numéricas exactamente igual que cualesquiera otros 
números, de manera que podemos escribir: 


LET menor = x<y 


LET p = x=3 
LET p=x=3 


para asignar 1 a la variable menor si el valor en x es más 
pequeño que el de y y O en caso contrario, y para asignar 
l a p si x contiene el valor 3, y O en caso contrario. La 
tercera línea significa, como es lógico, lo mismo que la 
segunda en lo que concierne al ordenador; pero cualquier 
persona que lo lea probablemente caerá en la trampa de 
pensar que iguala tanto p como x al valor 3. 
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Utilizando estas variables podemos escribir comandos 
como 


IF menor THEN PRINMT x3" es menor” 
IF p THEN LET x = y+5 


y entre el IF y el THEN podemos insertar de hecho cual- 
quier cosa que tenga un valor numérico: si el valor es 
cero, se ignora la parte situada a la derecha del THEN; 
si el valor es distinto de cero, se obedece. 

En las matemáticas ordinarias estamos acostumbrados 
a escribir cosas como 


para expresar que x es mayor que 1 o igual a 1 y menor 
que 5 o igual a 5, es decir, que x está comprendida en el 
intervalo de 1 a 5, ambos valores incluidos. En el BASIC 
ZX podemos escribir 


y podría pensarse que significa lo mismo; pero mirándo- 
lo bien resulta que no es así. Los dos operadores tienen 
la misma prioridad, de manera que se aplican de izquier- 
da a derecha. Por tanto, el valor de “1 <=x” se calcula 
como VERDADERO (1) o como FALSO (0), que pasa 
luego a ser el operando izquierdo del segundo operador 
“<= ”, La expresión se reduce, por tanto, a “0 <=5” o 
bien a “1 <=5”, y en cualquiera de los dos casos es VER- 


DADERO. Así pues, 


IF 1 <= x <= S THEN 


PRINT "El valor está dentro del intervalo” 


ZX Spectrum: Manual del programador 89 


imprime siempre el mensaje «El valor está dentro del in- 
tervalo», esté x en el intervalo de 1 a 5 o no lo esté. 

La comparación de números requiere una advertencia 
final en relación con valores que han sido derivados de 
cálculos en los que algunos de los números utilizados no 
estaban almacenados de forma exacta en el ordenador. 
Los únicos números que están almacenados exactamente 
son los números enteros menores que 4.000.000.000 
aproximadamente y aquellos números (dentro del ámbi- 
to que permite la aritmética) que son el resultado de mul- 
tiplicar o dividir los anteriores por potencias de 2, es de- 
cir, por 2, 4, 8, 16, 32, 64, etc. Además, los números li- 
terales escritos con un punto decimal o una E corren 
siempre el riesgo de ser inexactos debido al método que 
utiliza el BASIC para convertirlos de la forma decimal en 
que son tecleados a la forma binaria utilizada dentro del 
ordenador. 

Los operadores de comparación funcionan a base de 
restar un operando del otro y viendo si el resultado es 
cero O positivo o negativo. Los detalles de esta opera- 
ción, en particular el «redondeamiento» de los operan- 
dos y resultandos hasta 32 bits o aproximadamente 9*/, 
dígitos decimales, tienen algunos efectos muy curiosos. 
Por ejemplo, el literal 0.25 se convierte a binario calcu- 
lando (2+5X0.1)Xx0.1; pero la constante 0.1 no puede re- 
presentarse exactamente en binario y el resultado final es 
aproximadamente 5X10!! menor que un cuarto. La divi- 
sión 1/4 se realiza sin embargo exactamente. Como con- 
secuencia de ello, al restar uno de esos números del otro, 
el resultado se redondea hacia arriba en la misma canti- 
dad de aproximadamente 5X10"!" de manera que 
1/4— 0.25 da aproximadamente 10" mientras que 
0.25—1/4 da O. De ahí se sigue que 0.25=1/4 es VER- 
DADERO, mientras que 1/4=0.25 es FALSO. 

En cualquier lenguaje de programación es siempre pru- 
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dente tener en cuenta la posibilidad de que los números 
(distintos de los enteros por debajo de cierto tamaño) 
sean inexactos, y reemplazar, por ejemplo, 


IF x=y THEN 


por algo así como 


IF ABS (x-y) <: 1E-8 THEN ... 


si se sabe que x e y están entre aproximadamente 0.5 y 
10; o bien por 


IF ABS (x-y) < 1E-8 X*X ABS x THEN 


si no tenemos mucha idea de su posible tamaño. 

Los valores booleanos podemos utilizarlos en coman- 
dos IF, pero también en la aritmética booleana, inventa- 
da por el matemático francés George Boole. Recordemos 
que solamente tenemos dos valores: cero, que representa 
FALSO, y cualquier valor mayor que cero, que repre- 
senta VERDADERO); por el momento supondremos que 
ninguno de los valores que encontremos es negativo. 

Si x e y son dos valores de ese tipo, entonces x X y es 
cero si x O y es cero; si ambos son distintos de cero en- 
tonces x X y es distinto de cero también. Análogamente, 
x+y es cero si x e y son ambos cero; pero si cualquiera 
de ellos es mayor que cero entonces la suma es también 
mayor que cero (porque ninguno de ellos es negativo). 

En la aritmética booleana el operador de multiplicar se 
denomina también AND, de manera que xXANDy sola- 
mente es VERDADERO si x e y son ambos VERDA- 
DEROS; el operador de adición se llama también OR, 
porque xXORy es VERDADERO si x es VERDADERO 
o y es VERDADERO, o lo son ambos a la vez. 
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Aunque la aritmética de Boole funcionaría satisfacto- 
riamente en la mayoría de los casos utilizando los opera- 
dores de sumar y multiplicar de la aritmética ordinaria, 
como en 


IF (y > 1 ) + menor X (p < 3) THEN 


también se proporcionan los operadores AND y OR, 
como en 


IF y>1 OR menor AND p<3 THEN 


Estos operadores ejercen el efecto correcto aun en el 
caso de que sus operandos sean negativos o de que sean 
tan grandes que la suma o el producto daría un valor de- 
masiado grande para almacenarlo en el ordenador. 

El tercer operador booleano que proporciona el BA- 
SIC ZX es NOT, que es un operador prefijo con un solo 
operando. NOT x tiene el valor 1 si x es O, y O en los 
demás casos, de modo que NOT x es VERDADERO si 
y solo si x no es VERDADERO. 

Las prioridades de los operadores de Boole están ele- 
gidas de la siguiente manera. AND tiene una prioridad 
más alta que OR, de la misma manera que multiplicar tie- 
ne una prioridad más alta que sumar; por tanto, las ope- 
raciones se agrupan de la misma forma en los dos ejem- 
plos anteriores. NOT, al ser un operador prefijo, tiene 
una prioridad más alta que cualquiera de los anteriores, 
pero todos los operadores booleanos tienen una priori- 
dad más baja que los operadores de comparación, de 
modo que en el segundo ejemplo de arriba se pueden 
omitir los paréntesis. 

Un uso algo retorcido de AND proporciona el equi- 
valente de las «expresiones condicionales» que proveen 
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algunos otros lenguajes. El valor de x AND y es de he- 
cho el mismo que el de x si y es VERDADERO, y cero 
si y es FALSO. Así, por ejemplo, el valor de 


(a+b AND q) + (bXc AND NOT q) 


es (a+b) + O si q es VERDADERO, y 0 + (b*c) si q es 
FALSO, de modo que la expresión entera tiene el efecto 


de 


IF q THEN a+b ELSE bXc 


El operando izquierdo de AND (pero no el de OR) 
puede ser también una cadena, y en ese caso si el ope- 
rando derecho es FALSO el valor de la expresión es la 
cadena vacía (una cadena que carece de caracteres). El 
operador «+» entre dos cadenas significa «concatenar», 
y concatenar la cadena vacía no tiene ningún efecto (es 
como sumar cero a un número). Por tanto, se puede uti- 
lizar exactamente la misma construcción que con núme- 
ros; por ejemplo, 


(a$ AND x=y) + (b$ AND x<>y) 
tiene el efecto de 
IF x=y THEN as ELSE bs 
Un ejemplo ligeramente más elaborado es 


("mayor”" AND x>y) + ("menor" 
AND x<y) + ("igual” AND x=y) 


A diferencia de las expresiones condicionales en la ma- 
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yoría de los lenguajes, aquí no es necesario retener la par- 
te ELSE, de manera que podemos escribir 


PRINT x3 “" no "j "es ”" AND x<>yj"igual a "j y 


PRINT x3" pulgada”3j"s” AND x<>1 


en el ZX BASIC. 


Capítulo 5 
Matrices y cadenas 


En el capítulo 3 vimos brevemente que una «matriz» 
es un grupo de variables, todas del mismo tipo, y reuni- 
das bajo un nombre común. Las distintas variables se de- 
nominan «elementos» de la matriz y se identifican me- 
diante un número llamado «índice» o «subíndice». En la 
notación matemática corriente se utilizaría un subíndice, 
como en v3 O b_; en los ordenadores que utilizan el BA- 
SIC no es posible escribir los subíndices de esta forma, 
por lo cual se colocan entre paréntesis, como en v(3) o 
b(n). 

Cada matriz se dice que tiene un número determinado 
de «dimensiones». En el caso de una matriz unidimen- 
sional nos imaginamos todos los elementos alineados en 
hilera; en el caso de una matriz de dos dimensiones for- 
marían un rectángulo, en el de tres dimensiones un para- 
lelepípedo. En el caso de cuatro o más dimensiones haría 
falta pasar al hiperespacio, pero la idea es la misma. Las 
«dimensiones» de una matriz tridimensional, por ejem- 
plo, son la longitud, la anchura y la altura del paralele- 
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pípedo, es decir el número de elementos de cada direc- 
ción. 

El comando DIM se utiliza para crear (es decir, reser- 
var espacio para) una matriz, y especifica sus dimensio- 
nes. Así, 


DIM v(10) 


establece una matriz unidimensional v con los elementos 
v(1), v(2),..., v(10); y 


DIM c(9,3,2) 


establece una matriz tridimensional con los elementos 
ALE ALZA AZ 22). ALI: 11,3,2) 
c(2,1,1),..., c(4,3,2). Los elementos se numeran siempre 
del 1 hacia arriba en cada dimensión. 

Si el nombre de la matriz termina en un signo $, los 
elementos de la matriz son caracteres en lugar de núme- 
ros, de manera que 


DIM c$(4,3,2) 


establece una matriz tridimensional de caracteres. Sin em- 
bargo, también se puede utilizar como una matriz 4X3 
(y por tanto bidimensional) de cadenas, teniendo cada ca- 
dena una longitud de exactamente dos caracteres (porque 
en este caso la última dimensión de la matriz de caracte- 
res €s.2). 

El tamaño máximo de una matriz depende de la can- 
tidad de almacenamiento disponible en el ordenador. Una 
matriz de números exige cuatro bytes para el nombre etc., 
más dos por cada dimensión y cinco por cada elemento; 
una matriz de caracteres es similar, solo que cada elemen- 
to requiere un byte. 
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Por ejemplo: 


DIM a(10) 4 + 2x1 +5x10 


= 56 bytes 
DIM a$(10) 4 + 2x1 + 1x10 = 16 bytes 
DIM a$(6,100) 4 + 2x2 + 1x(6X100) = 608 bytes 
DIM a(3,3,3,6) 4 + 2x4 + 5x(3x3x3x6) = 822 bytes 
DIM a$(6,6,6,6,6) 4+2x5+1Xx(6x6Xx6x6x6) = 7.790 bytes 
DIM a(9,9,9,9) 4 + 2x4 + 5x(9X9x9X9) = 32.817 bytes 


Si los demás elementos que compiten por el espacio (el 
programa, otras variables, el fichero de pantalla, etc.) son 
pequeños, entonces la cantidad aproximada de espacio 
disponible es el que se muestra en el Cuadro 5.1. Para 
dar una idea de qué se puede almacenar en él, en el cua- 
dro se muestra también las dimensiones de una matriz nu- 
mérica bidimensional de aproximadamente ese tamaño. 


Cuadro 5.1. Espacio de almacenamiento 


Bytes Matriz 
Ordenador RAM total disponibles 2-D 

ZX81 (europeo) 1K 800 (12:13) 
TS1000 2K 1.800 (12,30) 
7X81 + ampliación 

de 16 K RAM l6K 15.400 (30,100) 
Spectrum 16 K 8.700 (30,58) 
Spectrum 48 K 41.500 (83,100) 


Como ejemplo de cómo se podría utilizar una matriz 
en un programa, supongamos que queremos almacenar la 
configuración de colores de un cubo de Rubik. 


DIM c(6,3,3) 
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crea un matriz c en la que podemos almacenar la confi- 
guración 3X3 de colores de cada una de las caras; c(1,1,1) 
podría ser el ángulo izquierdo superior de la cara ante- 
rior, c(1,1,3) el ángulo derecho superior, c(1,3,2) el cua- 
dro central de la fila inferior, etc. La manera de elegir los 
números y orientaciones de las demás caras puede influir 
decisivamente en la mayor o menor facilidad para escri- 
bir las rutinas que describen las distintas rotaciones que 
son posibles en el cubo real: en el peor de los casos ha- 
bría que escribir un trozo de código distinto para cada 
una de las caras. 

A veces es conveniente utilizar una matriz como «ta- 
bla de consulta», cuando no sea fácil traducir un valor a 
otro utilizando las operaciones y funciones aritméticas 
ordinarias. Supongamos, por ejemplo, que decidiéramos 
numerar el cubo del modo siguiente: 


superior (s)  (3,1,3) (3,2,3) (3,3,3) 
(3,1,2) 3,2,2) (3,3,2) 
lado izquierdo (1) GADOZDOS31) lado derecho (d) 


(2,3,1) (2,2,1) (2,1,1)  (1,1,1) (1,1,2) (1,1,3)  (5,3,3) (5,3,2) (5,3,1) 
(2,3,2) (2,2,2) (2,1,2) — (1,2,1) (1,2,2) (1,2,3)  (5,2,3) (5,2,2) (5,2,1) 
(2,3,3) (2,2,3) (2,1,3)  (1,3,1) (1,3,2) (1,3,3) — (5,1,3) (5,1,2) (5,1,1) 


(4,3,3) (4,3,2) (4,3,1) 
abajo (a) (4,2,3) (4,2,2) (4,2,1) 
(4,1,3) (4,1,2) (4,1,1) 


(6,3,1) (6,2,1) (6,1,1) 
posterior (p)  (6,3,2) (6,2,2) (6,1,2) 
(6,3,3) (6,2,3) (6,1,3) 


Si ahora miramos a cualquier cara f, colocando el cubo 
de manera que (f,1,1) quede en el ángulo superior izquier- 
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do, los colores de esa cara y de las adyacentes están al- 
macenados en los siguientes elementos de c: 


(51,1) (5,21) (5:31) 


(,1,1) (61,1) (£1,2) (£,1,3) (d,3,3) 
(1,1,2) (£,2,1) (£,2,2) (£,2,3)  (d,2,3) 
(1,1,3) (£,3,1) (£,3,2) (£,3,3)  (d,3,3) 


(a,3,3) (a,3,2) (a,3,1) 


Los valores de s, ¿, a y d son naturalmente diferentes 
para cada f. Por ejemplo, si f = 1, es decir si estamos mi- 
rando la cara que hemos llamado delantera, entonces 
s$=3,:=2,a=4,yd=5.Sif= 2, tendremos delante 
la cara izquierda, y entoncess=1,1=3,a=6,yd=4. 
Obsérvese que hay que mirar el cubo de lado para con- 
seguir que el elemento (2,1,1) quede en el ángulo supe- 
rior izquierdo. Si almacenamos los valores de s, ¿, a y d 
correspondientes a cada f en cuatro matrices de 6 elemen- 
tos, resultará fácil encontrarlos cuando se los necesite 
para Operaciones como rotar una cara, y además es po- 
sible manejar todas las caras con el mismo trozo de códi- 


go. 
En el Spectrum podemos escribir 


10 DIM s(6): DIM i(6): DIM afó): DIM (6) 
20 FOR j¡=1 TO 6 

30 READ s(j), 1i(j), b(j), ríj) 

40 NEXT j 

SO DATA 3,2,9,5 23,6, 


. 1, 6,1% 2,1,5,6, 6,5,1,25 
94,6,3,1, 5,9,2,3 


pero en el ZX81 los comandos DIM tienen que ir en lí- 
neas aparte y no existe ni READ ni DATA. (El capítulo 
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22 del manual del ZX81 sugiere una manera de resolver 
este inconveniente.) 

Una vez establecidas estas matrices, sabemos que el co- 
lor que ésta encima de (f,1,2) es c(s(f),k,1), por ejemplo, 
y que a la derecha de (f,j,3) está c(d(f),4-3,3). 


No siempre se necesitan matrices 


Sin embargo, existen situaciones en que las matrices no 
son el método más apropiado para resolver una situación 
o un problema que consiste en una repetición de datos. 

Supongamos que tenemos que hallar la media de una 
lista de números x, a x,, es decir el resultado de sumar 
todos los números y dividir la suma por n. Un enfoque 
usual consiste en dividir el programa de la manera si- 
guiente: 


leer los números 
calcular la media 
imprimir la solución 


y el programa podría ser algo como lo que sigue: 


1O PRINT "Cuántos números son?” ” 
20 INPUT n 

20 DIM x(n) 

40 PRINT "Ahora introduzca los rmúmeros” 
SO FOR i=1 TO n 

60 INPUT x(14) 

70 MEXT 1 

100 LET sum = Q 

110 FOR i¡=1 TO n 

120 LET suma = sumar+x(i) 

130 NEXT i 

140 PRIMT "La media es "3jsuma/n 
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El programa contiene dos bucles FOR, pero en reali- 
dad no hay ninguna razón que impida fusionarlos y sus- 
tituir las líneas 50 a 130 por 


so LET suma=0 

60 FOR i=1 TO n 

70 INPUT xyx(1) 

120 LET suma = sumat+tx(i) 
130 NEXT 1 


Pero veamos lo que está ocurriendo: el programa lee 
el primer número en x(1) y lo agrega luego a suma; el pro- 
grama no vuelve a utilizar x(1) nunca jamás, sino que pasa 
a leer el siguiente número en x(2), y así sucesivamente. 
En cada pasada utiliza un nuevo elemento de x que luego 
ya no vuelve a utilizar, de modo que podría trabajar con 
una sola variable y utilizarla una y otra vez, así: 


so LET suma=0 

60 FOR i=1 TO n 

70 INPUT xy 

120 LET suma = suma+x 
1320  —MEXT i 


Ahora ya no necesitamos tampoco la línea 30; en cuan- 
to n sea un poco grande, habremos ahorrado una can- 
tidad considerable de espacio. Esta versión del programa 
realiza algunos cálculos entre la lectura de un número y 
la solicitud del siguiente; pero el tiempo que tarda en ello 
no será apenas perceptible. La versión original realizaba 
gran parte de los cálculos después de introducir el último 
número, y sin es grande puede producirse una pausa muy 
notable entre el momento de teclear el último número y 
ver aparecer la respuesta en la pantalla. 

Hay veces en que manipulando algebraicamente el pro- 
blema original se puede conseguir mayor eficiencia en la 
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programación. Si además de la media queremos calcular 
a desviación típica, s, utilizando la fórmula 
la d típ tilizando la f l 


s* = sumcuadev / (n—1) 


donde sumcuadev es la suma de 1 hasta n de (x, — me- 
dia)?, es decir la suma de los cuadrados de las desviacio- 
nes respecto a la media, entonces no podemos empezar a 
calcularla hasta haber calculado la media, por lo cual ne- 
cesitamos almacenar todos los números (en la matriz x) 
con el fin de calcular sumcuadev al final del programa. 
Pero obsérvese que 


(x, — media)! = x% — 2 Xx x, X media + media? 


n 


de manera que la fórmula se puede reescribir así 
s” = (sumcua — 2 X suma X media + n X media”)/(n—1) 


donde sumcua es la suma de x”, que naturalmente puede 
calcularse a medida que se van introduciendo los núme- 
ros. Sustituyendo media por suma/n obtenemos 


$? = (sumcua — 2 X suma?*/n + n + suma*/n?)/(n—1) 
que se reduce a 
$? = (sumcua — suma?*/n?)/(n—1) 


A continuación damos el programa una vez modifica- 
do para que calcule también la desviación típica, así como 
para evitar la necesidad de preguntar al usuario cuántos 
números habrá y para repetir los números en la pantalla 
de manera que el usuario puede ver siempre los últimos 
20 números o así que haya tecleado. El programa está es- 
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crito para el Spectrum; la modificación más importante 
que habría que hacer para el ZX81 es insertar un coman- 
do SCROLL delante de cada PRINT (excepto los ante- 


riores a la línea 100) y cambiar ENTER por NEWLINE 
en las líneas 40 y 50. 


PRIMT AT 10,03 "Media y desviación tlpica”" 
PRINT 
PRINT "Teclee cada número seguido” 
PRINT "de ENTER.” 
PRINT "Para terminar pulse ENTER de nuevo." 
PRINT 
LET suma=0 
LET sumcua=0 
LET n=0 
INPUT x% 
IF x$="" THEN GOTO 190 
LET x=VAL xs 
LET n=npn+1 
PRINT nj” “ox 
LET suma=sumarx 
LET sumcua=sumcuarxkx 
GOTa 100 
REM 
REM aqui imprime la media y la d.t. 
REM 
IF n=0 THEN GOTO 280 
PRINT 
PRINT ” Medía "j suma/n 
IF n=1 THEN GOTO 280 
LET v = (sumcua -— (sumaXsuma/n)) / (n-1) 
PRINT " Varianza "jj yv 
PRINT "Desv. tipica "j SQOR y 
REM Comprueba si realmente termina 
PRINT 
PRINT "Más números? (pulse S o N)" 
INPUT x%b 
IF x$="S" OR x$="s" THEN GOTO 100 
IF x$<>"N"” AND x*$<>"n” THEN GOTO 280 


Procesamiento de textos 


Quien más quien menos está familiarizado con las ope- 
raciones que suelen realizarse normalmente con las ma- 


ZX Spectrum: Manual del programador 103 


trices de números: la aritmética corriente con los elemen- 
tos individuales, y hallar totales por filas y columnas. El 
ordenador realiza estas operaciones de forma muy pare- 
cida a como las efectúa la gente, sólo que mucho más de- 
prisa. 

Las operaciones con matrices y cadenas de caracteres 
son poco conocidas porque los ordenadores manejan las 
cadenas de caracteres de manera muy diferente que las 
personas. El ordenador convierte la cadena de caracteres 
en una cadena de números, sobre los cuales realiza luego 
Operaciones aritméticas elementales; el método es más 
bien laborioso, pero es el único que existe, y la velocidad 
con que un ordenador es capaz de realizar las operacio- 
nes aritméticas necesarias hace que sea mucho menos la- 
borioso que para una persona. 

Los números (o «códigos») a que se traducen los di- 
versos caracteres están recogidos en el Apéndice A de los 
manuales del ZX81 y del Spectrum. Debido a la forma 
en que está constituida la imagen de TV, los códigos uti- 
lizados en el «archivo de pantalla» del ZX81 tenían que 
ser los números del O al 63 para los caracteres ordinarios 
y 118 para «newline». (El archivo de pantalla de TV en 
el ZX81 consiste en una lista de códigos de caracteres con 
un código «newline» para marcar el final de cada línea.) 
Los códigos se eligieron de la manera que parecía conve- 
niente; por ejemplo, el dígito n tienen el código 28+n, y 
la n-ésima letra del alfabeto tiene el código 37+mnm. Debi- 
do, una vez más, a la forma en que el hardware forma la 
imagen de TV, al sumar 128 al código de un carácter se 
obtiene ese mismo carácter pero en blanco-sobre-negro 
en lugar de negro-sobre-blanco. 

Los mismos códigos que se utilizan en el archivo de 
pantalla se utilizan en los demás lugares donde se alma- 
cenan caracteres, como por ejemplo en el texto del pro- 
grama y en variables, y algunos de los códigos que no se 
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pueden utilizar en el archivo de pantalla se utilizan para 
representar términos simbólicos (tokens) tales como las 
palabras-claves LET y PRINT y THEN; en particular, 
sumar 192 al código de una letra da el código de la pala- 
bra clave que comparte una tecla con dicha letra del te- 
clado C por ejemplo, la letra G es el dódigo 44, 
444+192=236, y el código 236 es GOTO, que está en la 
misma tecla que G). 

El archivo de pantalla del Spectrum no almacena direc- 
tamente los códigos de caracteres y por tanto no restrin- 
ge la elección de dichos códigos. Sin embargo, el Spec- 
trum se concibió desde el principio para que pudiera so- 
portar la interfaz serie de expansión que permita inter- 
cambiar datos con otros equipos, y por esa razón se han 
elegido los códigos de los caracteres del Spectrum de tal 
forma que, en lo posible, sean compatibles con disposi- 
tivos que utilizan diversos códigos normalizados interna- 
cionales: ASCII e ISO-7 y los códigos más recientes para 
videotex (también llamado viewdata en Inglaterra), tele- 
tex (una especie de super-télex para procesadores de pa- 
labras), y teletexto (que se transmite junto con las imá- 
genes de televisión). 

Ya hemos visto cómo una cadena de caracteres se pue- 
de almacenar, imprimir y unir a otra cadena. Pero el BA- 
SIC permite también diseccionar una cadena y conside- 
rar los distintos caracteres o grupos de caracteres que 
contiene. El método que utiliza el ZX BASIC para ha- 
cerlo recibe el nombre de «troceado» o «slicing» en el ma- 
nual; es el mismo nombre que se utiliza en el Algol 68 
para designar una operación parecida destinada a disec- 
cionar matrices, pero puede utilizarse con cadenas y tam- 
bién con matrices de caracteres. Al igual que las funcio- 
nes LEFT$, MID$ y RIGHTS en otros BASIC, permite 
seleccionar una parte de la cadena, comenzando en un lu- 
gar previamente especificado y con una longitud también 
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predeterminada. Sin embargo, una parte de la cadena se 
especifica exclusivamente en función del número de ca- 
racteres a contar desde el principio de la cadena: si la ca- 
dena contiene una frase en castellano, pongamos por caso, 
entonces para seleccionar la segunda palabra hay que en- 
contrar primero dónde está. El siguiente fragmento de 
programa asigna a 10$ la n-ésima palabra de la frase de s$: 


100 LET k=0 

110 FOR i=1 TO n 

120 LET k=k+1 

130 IF s$6(tk)=" " THEN GOTO 120 
130 LET j¿=6 

150 LET k=k+1 

160 IF s$(k)<>" " THEM GOTO 150 
170 NEXT 1 

180 LET me = s$(j TO k-1) 


Las líneas 120 y 130 mueven k hasta el principio de la 
palabra, que recordamos como j, mientras que las líneas 
150 y 160 lo mueven luego hasta el carácter posterior al 
final de la palabra. Arrancando de ahí buscamos la si- 
guiente palabra y repetimos el proceso hasta hallar la n-é- 
sima palabra. Si llegamos al final de la cadena, el progra- 
ma se detendrá y mostrará el código de error 3. 

El operador LEN da la longitud de una cadena, de ma- 
nera que la línea 160 anterior podría haber rezado así: 


160 IF LEN s$>=k THEN IF s$(k)<>" * THEN GOTO 150 


para evitar que se produzca un error tipo 2 en la última 
palabra. El operador VAL interpreta el contenido de una 
cadena como una expresión numérica y suministra su va- 
lor. En el Spectrum existe además VALS, que cumple la 
misma función para una expresión que proporcione una 
cadena; pero no existe ningún modo para obedecer un co- 
mando entero contenido en una cadena. 
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(Obsérvese, de paso, que 


160 IF LEM s$>=k AND s$(k)<>" " THEN GOTO 150 


seguiría dando error 3 al final de la cadena, porque s$(%) 
se seguiría evaluando fuese cual fuese el valor del ope- 
rando izquierdo de AND.) 

Como se indicó en el capítulo 2, examinar cada uno de 
los caracteres de una cadena dista mucho del tipo de pro- 
cesamiento que hacen los humanos al mirar un trozo de 
texto; no es posible echarse un poco hacia atrás y mirar 
de golpe la cadena entera. El fragmento de programa an- 
terior disecciona una cadena en palabras aisladas, pero 
utilizando una definición bastante ramplona del concep- 
to de «palabra»; el tipo de cosas que un usuario podría 
teclear en la vida real es 


"Miguel,Enrique y Ramón." 


de manera que tenemos que ampliar el programa con el 
fin de poder identificar «Miguel» y «Enrique» como dos 
palabras distintas (el programa, tal como está escrito, 
identifica Miguel, Enrique como la primera palabra) y se- 
parar «Ramón» del punto que hay detrás. En el Spectrum 
hay que tener también en cuenta que las letras pueden ir 
en mayúsculas o minúsculas: «LOS», «Los» y «los» hay 
que identificarlos como la misma palabra, a pesar de que 
son cadenas diferentes. Para que el programa pueda si- 
quiera hacer el intento de interpretar una oración com- 
pleta escrita en inglés o en castellano, necesita tener una 
especie de «diccionario» que le diga el significado de to- 
das las palabras que puede teclear el usuario. 

Ante la dificultad de escribir un programa que fuese ca- 
paz de interpretar correctamente oraciones en inglés o en 
castellano, muchas veces es mejor presentar al usuario una 
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serie de opciones en la forma de un «menú», en lugar de 
formular una pregunta e intentar interpretar la respuesta. 
Por ejemplo, el programa 


10 PRINT "Dónde está el Vaticano?" 
20 INPUT cs 


30 IF Cc$ ¿> "Roma" THEN PRINT "Incorrecto!” 


imprimirá «Incorrecto» si el usuario teclea cualquiera de 
las siguientes palabras: 


"ROMA" "Roma." " Rama" "Está en Roma.” 


pese a que todas ellas son correctas. Cabría modificar el 
programa para intentar extraer la palabra «Roma» de esas 
respuestas, quizá de la manera siguiente (en el ZX81, que 
no tiene minúsculas, no se necesitan las líneas 30 a 50): 


10 PRINMT "Dónde está el Vaticano?” 
20 IMPUT cs 
30 FOR i=1 TQ LEN c%6: 
REN convierte a mayúsculas 
40 IF c$(i) >= "a” AND c$s(i) <= "z" THEN LET 
ci) = CHR$ (CODE c%(14) - CODE "a” + CODE "A”) 
50 NEXT 1 
60 FOR í=1 TO LEN c$ - 3 
70 TF c$(i TO 143) = "ROMA" THEN GOTO 100 
80 NEXT i 
90 PRINT "Incorrecto!" 


Este programa no contestará «Incorrecto» mientras la 
respuesta contenga las letras R,O,M,A todas seguidas y 
en cualquier posición; lo cual es una concesión demasia- 
do generosa, porque «Cromagnon», por ejemplo, se 
aceptaría también como respuesta correcta. Para evitarlo 
podemos añadir, v. gr., lo siguiente 
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23 GOTQ 130 


100 REM comprueba que "ROMA" no +torma parte de una 


palabra más larga 
110 IF 1>1 THEN IF cs(i-1) >= "A" AND 


ecs(i-1) <= "Z” THEN GOTO 80 
120 IF i < LEN cs - 2 THEN 1F cs(1+49) >= "A" 
AND cs(1+9) <= "Z" THEN GOTO 80 


pero entonces el programa no detectará como respuesta 
incorrecta la siguiente 


"a 80 kilómetros al norte de Roma." 


Para poder estar seguros de que no hay confusiones es 
preferible adoptar el enfoque de menú, como el siguiente: 


10 PRINT "Dónde está el Vaticano?” 


20 PRINT 

20 PRINT "1. Florencia” 
930 PRINT "2, Monte Carlo” 
30 PRINT "23. Norvnich" 

60 PRINT *4. Roma” 

70  PRINT "S. Nápoles" 


80 PRINMT 

90 PRINT "Teclee el número correspondiente” 

100 PRINT "a la respuesta elegida” 

110 INPUT ciudad 

120 IF ciudad <> INT ciudad THEN GOTO 80 
REM no es uh número entero 

130 IF ciudad < 0.92 OR ciudad > 5.1 THEN GOTO 80 : 
REM fuera del intervalo de 1l a S 

140 IF ciudad <> 4 THEN PRINT "Incorrecto!" 


Restringir las opciones quizá no sea muy deseable en 
este tipo de juegos de preguntas (porque si se contesta al 
azar hay una probabilidad de un quinto de acertar); pero 
normalmente resulta útil en situaciones más típicas en las 
que el programa pregunta al usuario lo que quiere hacer 
a continuación. 


Capítulo 6 
Programas para uso ajeno 


Mientras utilicemos nuestro ordenador personal como 
una gloriosa calculadora, o para producir imágenes en la 
pantalla de TV, o incluso para jugar algún juego con ella, 
no importa demasiado cómo estén escritos los programas 
con tal de que quepan en la memoria disponible y de que 
produzcan los resultados apetecidos. Pero si estamos es- 
cribiendo un programa largo y complicado, o un progra- 
ma para que lo utilicen otras personas, o que un tercero 
tendrá luego que modificar, o un programa en el que sea 
importante cerciorarse más o menos de que los resulta- 
dos se corresponden correctamente con los datos intro- 
ducidos, entonces conviene atenerse a una serie de direc- 
trices. 

Digamos de entrada que si lo que se pretende es escri- 
bir programas «serios» no se debería utilizar el BASIC. 
En casete existen varios lenguajes para los ordenadores 
ZX. Al comprar cualquiera de ellos conviene comprobar 
si implementa la totalidad del lenguaje o solo ciertas par- 
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tes de él, y verificar también cuánta memoria del orde- 
nador ocupa. Lo más aconsejable es leer los informes y 
críticas que se publican en las revistas de microordena- 
dores. Recuérdese que cada vez que uno desconecta el or- 
denador borra todo lo que hay en la memoria, de ma- 
nera que cada vez que uno quiera utilizar la casete tendrá 
que hacer que el ordenador la lea de nuevo: la máquina, 
al conectarla, solamente dispone de BASIC. 

Como su propio nombre indica, el BASIC (Beginner's 
All-purpose Symbolic Instruction Code = Código de 
instrucciones simbólicas de uso general para principian- 
tes) está pensado como una forma de introducir a la gen- 
te a los ordenadores y a la programación, con la idea de 
que posteriormente pasen a programas en otros lengua- 
jes. Ahora bien, y eso lo han advertido muchas personas 
que trabajan en la industria del software (entre ellas los 
miembros del comité Alvey, que remitió un informe al 
Gobierno del Reino Unido sobre ciertos aspectos de la in- 
formática en los años 80), el BASIC puede inducir algu- 
nos hábitos muy poco deseables. 


Programación estructurada 


Cuanto más grande es un programa, tanto más difícil 
resulta llevar la cuenta del efecto que tendrá una deter- 
minada instrucción en el resto del programa, o del esta- 
do de cosas en lo que concierne a aquello que otras par- 
tes del programa deberían estar actualizando. El tipo de 
preguntas que se plantean es: ¿Es correcto utilizar la va- 
riable ;, o hay alguna otra parte del programa que haya 
dejado almacenado algo allí a la espera de poderlo recu- 
perar más adelante? ¿Hemos actualizado ya signienteva- 
lor (que se supone que contiene el valor que mirará a con- 
tinuación el programa) o hay circunstancias en las que si- 
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gue conservando un valor ya utilizado? ¿Podemos impri- 
mir aquí un mensaje, sin borrar ni obstaculizar para nada 
lo escrito por otras partes del programa? 

Las técnicas para controlar este tipo de problemas tie- 
nen dos componentes principales: 


1. Desglosar el programa en fragmentos de tamaño 
manejable. 


Es imposible precisar el término «manejable»: quizá 40 
ó 50 comandos en circunstancias normales. Pero si se tra- 
ta de un proceso sencillo y directo que requiere gran nú- 
mero de comandos se pueden incluir más, mientras que 
en otro más complicado habría que limitarse a un núme- 
ro bastante menor. 


2. Utilizar comentarios para indicar qué hace cada 
fragmento, qué recursos utiliza, etc. 


Generalmente hay cosas que mantienen su validez a lo 
largo de todo el programa y que, por tanto, pueden do- 
cumentarse mediante un comentario situado en la cabe- 
cera del programa (siempre que no ocupe demasiada me- 
moria) o fuera por completo del ordenador (si hay segu- 
ridad de que no se va a perder); por ejemplo, en un pro- 
grama para jugar a un juego de tablero como el ajedrez 
habrá probablemente una matriz que retiene la posición 
actual y una variable que indica a quién le toca mover; 
la documentación debe definir cómo se halla codificada 
la información en dicha matriz. Al escribir luego la parte 
del programa que presenta el tablero en la pantalla bas- 
tará con hacer referencia a esa documentación; no es ne- 
cesario consultar la parte del programa que establece la 
posición inicial, ni aquella otra que actualiza la posición 
al realizar un movimiento. Análogamente, los comenta- 
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rios sobre distintas partes del programa podrán dar por 
supuesto que uno ya conoce la información que se con- 
tiene en esa documentación «global», sin necesidad de 
repetirla. 

Digamos, a propósito de esto, que el diseño de cómo 
representar la información en la memoria (lo que se lla- 
ma la «estructura de datos») es la parte más importante 
en la mayoría de los programas de cierta envergadura. 
Una vez fijada esa estructura, el programa se desglosa ge- 
neralmente de forma automática en una serie de seccio- 
nes, cada una de las cuales se ocupa de actualizar una par- 
te de la estructura de datos para dar cuenta de algún cam- 
bio en la cosa representada: realizar, por ejemplo, un mo- 
vimiento en una partida de ajedrez o añadir una opera- 
ción nueva a un estado de cuentas bancario. Todas estas 
operaciones son bastante fáciles siempre que se haya di- 
señado bien la estructura de datos. Al diseñar la estruc- 
tura de datos conviene utilizar siempre una representa- 
ción que se amolde al programa. En concreto hay que 
pensar en la manera de no aumentar innecesariamente el 
número de operaciones distintas (y, por tanto, el número 
de secciones diferentes del programa). En el Juego del aje- 
drez, por ejemplo, ¿necesitamos una sola rutina para 
«realizar un movimiento» O harán falta rutinas indepen- 
dientes para «movimiento de las blancas» y «movimiento 
de las negras»? Si somos partidarios de arreglárnoslas con 
una sola, ¿será mucho más complicada que cualquiera de 
las otras dos por separado? De ser así, quizá sea mejor 
optar por dos rutinas. 

El término «programación estructurada» empezó a uti- 
lizarse en los años 70. Se trata de una técnica que consis- 
te en describir la tarea de un programa en función de ta- 
reas «de nivel inferior»; la descripción debe ser de pro- 
porciones manejables, es decir, que ocupe menos de una 
página. En el caso del juego del ajedrez podría ser: 
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1. establecer la posición inicial, establecer «juegan las 
blancas», preguntar si el ordenador va a jugar ne- 
gras o blancas o ambas o ninguna de las dos (en el 
caso de que dos personas lo utilicen como una es- 
pecie de tablero de ajedrez electrónico); 

2. desplegar el tablero en la pantalla de TV, indicar a 
quién le toca mover; 

3. si el jugador no puede mover, indicar «jaque mate» 
o «tablas» y pasar a 7; 

4. si le toca mover al ordenador, determinar la juga- 
da que debe hacer; si le toca al usuario, pedir que 
introduzca el movimiento; 

5. realizar el movimiento, o, si es «abandona», ir a 7; 

6. cambiar de «juegan blancas» a «juegan negras» O 
viceversa y pasar a 2; 

7. indicar (en pantalla) qué jugador ha perdido y pre- 
guntar si se desea jugar otra partidita; en caso afir- 
mativo, pasar a 1. 


Cada una de estas siete tareas se describe a su vez con 
ayuda de tareas de un nivel inferior, y así sucesivamente 
hasta definir todas las tareas en forma de secuencias de 
comandos en BASIC (o en el lenguaje de programación 
que se esté utilizando; pero en este libro supondremos 
que es el BASIC). 

Una característica del BASIC que muy pocos lengua- 
jes comparten es que cada línea del programa lleva un nú- 
mero, lo cual facilita la comprensión del programa si se 
utilizan, por ejemplo, las líneas del 1.000 en adelante para 
el paso 1, del 2.000 en adelante para el paso 2, etc. Si el 
paso 2 consiste en seis pasos de nivel inferior, estos co- 
menzarán en los números 2.100, 2.000,...,2.600; la línea 
2.000 debe contener un REM que indique qué es lo que 
se hace en el paso 2. 

Algunos puristas de la programación estructurada in- 
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sistirían en una manifestación más directa del nivel supe- 
rior en el programa, como en 


10  GOSUB 1000 

ZO GOSUB 2000 

30 GOSUB 3000: IF hecho THEN GOTO 70 
40 GOSUB 4000 

50  GOSUB 5000; IF hecho THEN GOTO 70 
60 GOSUB 6000 

62 GOTO 20 


70 GOSUB 7000: IF otro THEN GOTO 10 
72 GOTO 9999 


Los puristas insistirían también en eliminar todos los 
GOTO del programa. En los lenguajes «estructurados 
por bloques», sobre todo en los más recientes como el Al- 
gol 68, Pascal, BCPL y C, se proveen procedimientos 
que pueden reemplazar la mayoría de los usos del 
GOTO: en el ejemplo anterior, las líneas 20 a 65 queda- 
rían agrupadas de alguna manera en un «bloque» (los de- 
talles dependerían del lenguaje), los GOTO de las líneas 
30 y 50 adoptarían la forma de comandos «salida del blo- 
que», y el de la línea 62 se indicaría como «repetir el blo- 
que». Las líneas 10 a 70 formarían otro bloque (con el pri- 
mer bloque» «anidado» dentro de él), sustituyendo el 
IF...GOTO por un comando de la forma «repetir mien- 
tras (otro)». Algunas de estas cosas se pueden hacer tam- 
bién en BASIC, como, por ejemplo: 


10 FOR a = O TO O STEP -1 

yS GOSUB 1000 

20 GOSUR 110 

70 GOSUR 7000 

72 LET a = otro! REM si CIERTO empezar de nuevo 
75 MEXT a 

78 sTOP 


110 FOR b = O TO ] STEP O 
120 GOSUB 2000 
130 GOSUB 2000: IF hecho THEN RETURN 
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1940  GOSUB 4000 

150  GOSUR 5000: IF hecho THEN RETURN 
1640 GOSUB 64000 

170 NEXT b 


pero no parece que eso aclare mucho lo que está hacien- 
do el programa. 

Muchos de los partidarios de la programación estruc- 
turada se concentran con fervor casi religioso en eliminar 
los comandos GOTO (llegando incluso a veces a citar el 
versículo 7 del capítulo 11 del Génesis, en donde Dios dice: 
«Ea, bajemos y confundamos allí su lengua, a fin de que 
nadie entienda el habla de su compañero», que en inglés 
empieza por «Goto, let us go down...», como prueba de 
que son los GOTO los que hacen incomprensibles los 
programas). Sin embargo, hay programas muy claros y 
comprensibles que utilizan GOTOSs, y otros muy oscu- 
ros y enrevesados que no los utilizan para nada. 

Ahora bien, si estamos escribiendo en ZX BASIC no 
tenemos ninguna alternativa aceptable a los comandos 
GOTO, por lo cual conviene saber cómo utilizarlos y 
cómo no utilizarlos. 

En la mayoría de los lenguajes, cuando queremos que 
el programa vaya (GOTO) a un comando, es preciso que 
ese comando tenga una «etiqueta». Las etiquetas son algo 
muy parecido al nombre de una variable, en el sentido 
de que identifica la parte de la memoria en la que se halla 
almacenada la línea; generalmente tiene la misma forma 
que un nombre de variable (letra seguida de letras y/o dí- 
gitos), aunque en Fortran es un número. Muchos com- 
piladores cuentan con la posibilidad de generar un tabla 
de «referencias cruzadas» que muestra dónde se utiliza 
cada etiqueta. Al examinar un trozo del programa, ya sea 
para comprobar si es correcto O para ver si un cambio 
que estamos proponiendo hacer va a afectar o no a otras 
partes, uno puede estar seguro de (1) que las únicas vías 
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de entrada en ese fragmento del programa son el comien- 
zo del mismo y las etiquetas, y (2) que cualquiera de los 
lugares de acceso es posible hallarlos en la tabla de refe- 
rencias cruzadas. Por consiguiente, uno puede estar se- 
guro de poder comprobar cualquier contexto en el que 
se pueda utilizar el trozo de programa. 

En BASIC, cada línea tiene un número de línea y por 
tanto es en potencia el objetivo de un comando GOTO. 
En la memoria fija estándar no va incluido ningún refe- 
renciador cruzado, pero tampoco sería difícil escribir uno 
rudimentario en BASIC. (Véanse los capítulos 27 y 28 
del manual del ZX381, y los capítulos 24 y 25 en el caso 
del Spectrum, para ver dónde «mirar» (PEEK) y qué bus- 
car allí; en cualquier caso, el Apéndice A informa que el 
código de GOTO es 236.) El problema se agrava debido 


a la existencia de instrucciones como 
GOTO (j+5)XxX100 


que puede reenviar a cualquier línea; recuérdese que ¡ no 
es necesariamente un número entero ni tampoco necesa- 
riamente positivo; podría ser por ejemplo —3.53, y en- 
tonces el comando se convierten en GOTO 147, y si no 
existe la línea 147 irá al número de línea inmediatamente 
superior. 

Por eso es extremadamente importante colocar una ob- 
servación REM en todos aquellos lugares a donde un co- 
mando GOTO pueda enviar al programa desde cualquier 
otra parte. Esto también se aplica (de hecho con tanta 
más razón) a lugares donde envíe un GOSUB; en este 
caso el REM debe aclarar cuál va a ser el efecto final del 
GOSUB (es decir, qué es lo que se habrá hecho en el mo- 
mento en que se llegue al RETURN). 

Otra de las críticas que se le hacen a menudo a los 
GOTO es que su uso indiscriminado genera progra- 
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más que, al trazar todas las trayectorias que puede seguir 
el ordenador, parecen un plato de espaguetis. (También 
se ha dicho que las formas más extremas de «programa- 
ción estructurada», con sus programas de múltiples ca- 
pas, parecen un plato de lasaña, igual de poco transpa- 
rente.) Nuestra experiencia nos dice que una buena regla 
que ayuda a evitar este tipo de problema es: los saltos ha- 
cia atrás solamente deben utilizarse en los bucles. 

Un salto hacia atrás es un GOTO que reenvía a un co- 
mando anterior del programa, como por ejemplo 


120 IF n<>0 THEN GOTO 100 


(100, como es lógico, va antes de 120). Un bucle es una 
secuencia de comandos que es obedecida varias veces, por 
ejemplo 


100 IMPUT n 
110 LET total = total+n 
120 IF n<>0 THEN GOTO 100 


donde las líneas 100 y 120 se obedecen repetidas veces 
hasta que el valor de n sea cero (suponemos que, antes 
de entrar en el bucle, el ordenador imprime un mensaje 
como «teclee los números, terminando con un cero»). 
Evidentamente tiene que haber algún salto hacia atrás en 
algún punto del bucle (a menos que se utilice un 
FOR...NEXT, que no es muy apropiado aquí); pero es 
necesario organizar el programa de tal manera que no 
haya más saltos hacia atrás que aquellos que van desde la 
mitad o final de un bucle al principio. Supongamos, por 
ejemplo, que uno tiene que emprender una acción dife- 
rente en cierto punto si la variable x contiene el valor 
cero: 
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2340 IF x=0 THEN GOTO 2500 
260 tlacción sí x es distinto de cero) 
280 (parte siguiente del programa) 


2500 REM aqui desde 240 si x=0 
2520 lacción si x es cero) 
2540 GOTO 280 


El programa anterior contiene un salto hacia atrás en 
la línea 2540, y vemos que si el programa tiene muchas 
secciones como las líneas 2500 a 2540, su estructura será 
como la de ese plato de espaguetis de que hablábamos an- 
tes. Ahora bien, podemos reordenarlo de la manera si- 
guiente: 


2390 IF x:2>0 THEN GOTO 270 


250 (acción si x es cero) 

260 GOTO 230 

z270 (acción sí x es distinto de cero) 
280 (parte siguiente del programa) 


que no tiene ningún salto atrás y que posee una estruc- 
tura mucho más limpia (parecida, en efecto, a la forma 
que adoptaría el programa en un lenguaje «sin GOTOs»), 
de manera que podemos ver qué es lo que hace sin tener 


que seguir la pista a cabos sueltos del programa en otras 
partes del listado. 
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La primera vez que un programador novato deja que 
otra persona pruebe un programa que acaba de escribir 
suele llevarse un chasco al descubrir lo fácil que es que 
falle y lo difícil que es que el usuario que está haciendo 
de conejillo de Indias logre que funcione. 

El problema suele ser que la entrada del usuario no 
coincide exactamente con la forma prevista por el pro- 
gramador. Si se le pide una lista de palabras, las separa 
con comas cuando el programador esperaba espacios en 
blanco, o bien con varios blancos cuando el programa- 
dor esperaba solo uno. O puede ser que no se le advierta 
que ninguna de las palabras puede tener más de diez le- 
tras. O que se le pida un número pero olvidando espe- 
cificar que tiene que ser entero, o menor que cien, o ma- 
yor que cero. Para el programador, que sabe cómo fun- 
ciona el programa, todas esas restricciones le parecerán 
obvias, y a veces le cuesta darse cuenta de que el usuario 
no posee la misma información. La razón de que el pro- 
grama no prevea muchas veces una forma particular de 
entrada es que el propio programador jamás pensaría en 
utilizarla: nunca se le ocurriría que dos palabras adyacen- 
tes de una lista pudieran separarse con otra cosa que no 
fuese un solo espacio en blanco, de modo que el progra- 
ma no prevé la posibilidad de varios blancos o de una 
coma. 

La defensa del programador contra este problema es 
adoptar un sistema de «cinturón y tirantes»: 

(1) Cerciorarse de que se le ha dicho al usuario qué es 
exactamente lo que espera el programa. 

(2) Cerciorarse de que el programa puede hacer frente 
a cualquier tipo de entrada, incluso aquellas que no están 
de acuerdo con las instrucciones dadas en (1). 

La eficacia de (1) tiene sus límites: el usuario está mu- 
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chas veces demasiado ávido de poner en marcha el pro- 
grama para deternerse a leer las instrucciones con cuida- 
do; efectivamente, en el negocio de la informática existe 
la convicción generalizada de que los usuarios no miran 
las instrucciones sino como último recurso, cuando han 
fallado todos los demás intentos de hacer que el progra- 
ma funcione. Algunas de las palabras utilizadas por el 
programador quizá no las entienda del mismo modo el 
usuario. Y si incorporamos todas las instrucciones al pro- 
grama y las presentamos en pantalla en momentos apro- 
piados, seguramente habrá que abreviarlas por falta de es- 
pacio. 

Con (2) intentamos impedir entradas incorrectas que 
sean el resultado de errores de tecleado o de errores de 
interpretación de qué es lo que se pide. El programa debe 
verificar todas y cada una de las suposiciones que haga 
acerca de los datos de entrada, preferiblemente justo des- 
pués de su introducción. Supongamos, por ejemplo, que 
queremos que el usuario elija un número entre 1 y 999: 


100 PRIMT "Piense un número menor que 1000" 
110 PRINT "Qué número es?" 

120 INPUT námero 

130 IF námero<1000 THEN GOTO 160 

1340 PRINT "El número era demasiado grande” 
150 GOTO 100 

160 IF número>O THEN GOTO 190 


170 PRINT "Mecesitamos que el número sea mayor que O" 


180 GOTAQ 210 

190 IF número=INT número THEN GOTO 230 
200 PRINT "Necesitamos un número entero” 
210 PRINT "Piense otro número” 

220 GOTO 110 

230 REM NUMERO es un entero, de 1 a 999 


El comando INPUT garantiza que lo que nos dan es 
un número, y después pasamos a comprobar que obede- 
ce cualesquiera restricciones que hayamos supuesto pos- 
teriormente en el programa. Aquí le hemos dicho al usua- 
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rio que debe ser inferior a 1.000 y hemos supuesto que 
la mayoría de los usuarios no optarán por un número ne- 
gativo o fraccionario. Se comprueba cada una de esas con- 
diciones y se comunica al usuario si se ha rechazado el 
número y la razón por la que ha sido rechazado. Esto 
último es de la máxima importancia; hay pocas cosas más 
enervantes que un ordenador que se niega a procesar los 
datos sin dar ninguna idea de qué es lo que está mal. (Esa 
es la razón de que cuando el ZX BASIC rechaza una lí- 
nea de comando por error de sintaxis sitúe el cursor «S» 
en el lugar donde cree que está el error. Quizá sería más 
útil que nos indicara además la naturaleza del error; pero 
eso resulta a menudo evidente en cuanto se señala su po- 
sición, y en muchos casos sería muy difícil que el orde- 
nador pudiese dictaminar la causa del error.) 

El anterior fragmento de programa no da al usuario un 
largo mensaje con todas las restricciones a que está so- 
metida la entrada; solamente da los detalles importantes. 
Luego pasa a verificar todos los supuestos, incluídos 
aquellos de los que se ha informado al usuario. Si el pro- 
gramador es sistemático, debe cerciorarse de que la en- 
trada a un programa obedece los supuestos que el resto 
de él hace al respecto. Entonces estará seguro de que el 
programa ejecutará correctamente cualquier entrada que 
le dé el usuario. 


Velocidad 


Los ordenadores ZX no son especialmente rápidos en 
la ejecución de programas, de manera que es importante 
que el programador evite que el programa sea más lento 
de lo necesario. Algunos aspectos del diseño del BASIC 
están heredados del ZX80, en el cual primaba el requisi- 
to de acomodar todo el sistema en una cantidad muy pe- 
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queña de memoria. Para mantener un diseño interno muy 
simple (y, por tanto, para minimizar el espacio ocupado 
por el programa de código máquina que interpreta el BA- 
SIC), los diversos elementos que hay que guardar en la 
memoria (el programa en BASIC, variables, cadenas, etc.) 
se apilan simplemente uno tras otro, de manera que cuan- 
do se necesita uno de ellos el ordenador busca desde el 
principio hasta que lo encuentra; si hay que insertar uno 
de ellos, se mueven los demás para hacer sitio, y si hay 
que suprimir alguno, se corren todos los demás para ce- 
rrar el hueco. Esto hace innecesario mantener (y mantener 
actualizados) la multitud de punteros que harían falta para 
encontrar las cosas con más rapidez, a cambio de una can- 
tidad respetable de búsquedas y de copias (cuando hay 
que mover cosas de un lugar a otro); pero como de to- 
dos modos no puede haber una cantidad demasiado gran- 
de de cosas que copiar o entre las que buscar (por haber 
tan poco espacio), tampoco lleva demasiado tiempo. 

El nombre de una variable, por ejemplo, se almacena 
en el programa sin ninguna otra información acerca de 
dónde está almacenado, de manera que cada vez que se 
utiliza una variable mientras el programa se está ejecu- 
tando, el ordenador busca en la parte de la memoria don- 
de están guardadas las variables, hasta encontrar la que 
lleva el nombre de que se trate. En un ZX81 con solo 1K:* 
de RAM no llevará mucho tiempo esa operación, porque 
tampoco puede haber muchas variables entre las que bus- 
car; pero en uno de 16K, o en un Spectrum (especial- 
mente en el de 48K), hay sitio para programas grandes 
con muchas variables, y si el ordenador tiene que buscar 
repetidas veces las variables que resultan estar al final de 
la lista, el programa sufrirá un retardo notable. 

Independientemente del lenguaje y del ordenador que 
se utilice, sólo un 20% aproximadamente de los coman- 
dos de un programa típico se obedecen con una frecuen- 
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cia suficiente como para que importe el tiempo que con- 
suman. Excepto cuando se están generando imágenes con 
movimiento, lo que normalmente le importa al usuario 
es el tiempo que pasa entre apretar ENTER, al final de 
un comando o de una entrada, y ver los resultados o una 
solicitud de nuevas entradas; así pues, cualquier coman- 
do que solamente se obedezca una o dos veces durante 
ese tiempo no es probable que represente una gran dife- 
rencia. 

Algunas de las técnicas para reducir el tiempo de eje- 
cución de un programa se aplican a la mayoría de los len- 
guajes y a la mayoría de los ordenadores, y en buena par- 
te son medidas de sentido común, como la de no hacer 
dentro de un bucle ningún cálculo que pueda hacerse fue- 
ra de él. Pero el ZX BASIC tiene algunas peculiaridades 
que merecen mención especial en este contexto. 

Las instrucciones GOTO escrutan el programa desde 
el principio en busca de la línea pertinente, de modo que 
las situadas al comienzo del programa se encontrarán an- 
tes que las colocadas al final. El modo natural de escribir 
un programa es empezar primero con la inicialización 
(que sólo se hace una vez), luego la entrada de datos, y 
después el procesamiento y la salida. Ahora bien, de ese 
modo pondríamos la parte del programa que probable- 
mente más se beneficiaría de GOTOSs más rápidos justa- 
mente en el lugar donde los GOTOSs son más lentos; un 
orden mejor sería 


GOTO inicialización 

procesamiento « salida (bucles muy utilizados) 
procesamiento «: salida (resto de) 

STOP (o GOTO final) 

inicialización 

entrada de datos 

GOTO procesamiento 
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Esto incluye un salto hacia atrás que no forma parte 
de un bucle, y realmente está ya mucho menos claro qué 
es lo que está haciendo el programa, de modo que vemos 
que tenemos que elegir entre un programa más rápido y 
un programa bien estructurado. Los GOTO adicionales 
se obedecen una sola vez cada uno, por lo cual no im- 
porta el tiempo que tarden. 

NEXT y RETURN son también saltos y utilizan el 
mismo mecanismo que GOTO para encontrar la instruc- 
ción FOR o GOSUB a la que volver. NEXT es especial- 
mente importante porque siempre forma parte de un bu- 
cle y, por tanto, se obedece múltiples veces. 

Es posible reducir el número de líneas de un programa 
sustituyendo, por ejemplo, 


140 PRINT "El valor es ”; 
150 PRINT x 


por 
140 PRINT “El valor es "jx 
o bien 
270 LET q = x + LOG y 
280 LET q = q X EXP z 
por 
270 LET q = (x + LOG y) %X ExP z 


En el Spectrum es posible incluir varias instrucciones 
en la misma línea, separadas por dos puntos; y como es 
el número de líneas y no el número de comandos lo que 
importa, cabe ganar bastante en velocidad. Por otro lado, 
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al final de cada línea el ordenador tiene que realizar un 
procesamiento adicional, de manera que colocar los co- 
mandos en un número menor de líneas acelerará ya un 
poco el programa. Pero seguramente seguirá mereciendo 
la pena comenzar línea nueva para cada comando FOR 
o GOSUB, porque el tipo especial de salto que hace 
NEXT y RETURN busca la línea que contiene el FOR 
o GOSUB (bajando y mirando solamente los números 
de línea) y luego escruta la línea y cuenta los comandos 
que hay en ella hasta llegar al que va detrás del FOR o 
GOSUB. : 

En este caso, el formato de ejecución más rápido es 
probable que sea también bastante aceptable desde el 
punto de vista de la legibilidad, como, por ejemplo, 


Z100 LET a=5: LET b=0:; LET c=2 
2110 GOSUB 1000 


2120 FOR n=1 TO 50: LET qí(n)=q(n)+r(n): NEXT n 
2130 GOSUB 1200 
etc. 


La forma en que se hallan las variables se asemeja en 
muchos aspectos a la forma en que se hallan las líneas del 
programa, y es una operación que normalmente se reali- 
za con bastante mayor frecuencia. Cada variable que ha 
sido asignada se describe mediante un registro que espe- 
cifica su tipo, nombre y valor. (Si se intenta utilizar una 
variable para la que no existe ningún registro aparece un 
error 2.) Suponiendo que el programa se inicie con RUN, 
en el momento de comenzar el programa no existen re- 
gistros; los comandos DIM, LET, FOR e INPUT aña- 
den nuevos registros al final, y los registros se buscan des- 
de el principio, de modo que los más antiguos son los 
que se miran primero. 

Para ser más exactos: DIM añade un nuevo registro 
que describe una matriz. FOR, así como LET cuando 
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asigna a una variable numérica, utilizarán el registro exis- 
tente para esa variable si es que existe alguno; si no, aña- 
dirá uno nuevo. LET, cuando asigna a una variable de ca- 
dena, agrega siempre un nuevo registro; si existe ya uno, 
se elimina y se mueven hacia atrás todos los registros pos- 
teriores para cerrar el hueco. LET nunca creará un nue- 
vo registro al asignar a un elemento de matriz. 

Así pues, como regla general las matrices y variables 
numéricas que se van a utilizar con frecuencia deben 
DIMensionarse o asignarse antes que nada, aun en el caso 
de que no se vayan a utilizar hasta después. Las variables 
de cadena deben dejarse normalmente para el final en to- 
dos los casos. 

Para las variables numéricas deben utilizarse nombres 
cortos (las matrices y las cadenas tienen que llevar for- 
zosamente nombres de un solo carácter —otra reminis- 
cencia del ZX80). Una variable que tenga un nombre de 
seis o siete caracteres lleva el doble de tiempo en ser leí- 
da que otra que tenga un solo carácter. Los caracteres que 
son el valor de una variable de cadena tienen un tiempo 
de búsqueda parecido. 

Obsérvese que el ordenador busca una variable cada 
vez que aparece en el programa. Así, en 


100 FOR j=n+1 TO n+10 
110 LET a(j) = a(j)Xj 
120 MEXT j 


en donde la línea 100 es obedecida una vez y las líneas 
110 y 120 son obedecidas 10 veces, el ordenador busca n 
dos veces (ambas en la línea 100), a 20 veces (todas ellas 
en la línea 110, dos veces en cada vuelta), y ¡ 41 veces 
(una en la línea 100, tres en cada vuelta de la línea 110, 
y una en cada vuelta de la línea 120). Así pues, estas tres 
líneas contienen en total 63 búsquedas de variables y 
9 saltos. 
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Buscar una variable y buscar una línea del programa 
lleva prácticamente el mismo tiempo, de manera que el 
tiempo adicional para encontrar la variable vigésimopri- 
mera (por ejemplo) en lugar de la primera es aproxima- 
damente el mismo que el tiempo adicional de ir (GOTO) 
a la vigésimoprimera línea del programa en lugar de a la 
primera. Es un poco más que el tiempo que se tarda en 
hacer una suma o resta de coma flotante, pero algo me- 
nos que el tiempo necesario para una multiplicación o di- 
visión. 

La otra trampa para los desprevenidos reside en algu- 
nas de las operaciones con números. El operador de po- 
tenciación se calcula siempre utilizando la fórmula 


x Th = EXP (rm % LOG x) 


salvo cuando x = 0. Quiere decirse que x ] 2 tarda apro- 
ximadamente veinte veces más en calcularse que x*x, y 
además puede dar una respuesta menos precisa. Análo- 
gamente, x | 3 tarda aproximadamente diez veces más que 
x*x*x. Además, x Í n origina un error A si x es negativo, 
porque el LOG de un número negativo no existe, de ma- 
nera que si x=—3 entonces x*x es +9, pero x f 2 detiene 
el programa con un error A. Moraleja: siempre que sea 
posible, utilícese la multiplicación en lugar de la potencia- 
ción. 

SQRx se calcula en la forma x ] 0.5, y, por tanto, tar- 
da también bastante en ser calculada; pero en realidad no 
existe ninguna alternativa viable. Algunas de las funcio- 
nes trigonométricas son más lentas que otras: TAN x se 
calcula como SIN x / COS x; ASN utiliza SQR y ATN, 
igual que ACS. 


Parte III 


Ejemplos de programas 


Capítulo 7 
Presentación gráfica de los datos 


Los programas de este capítulo tienen que ver con la 
presentación de datos numéricos en forma gráfica en pan- 
talla. En el capítulo 2 vimos que ése es el tipo de tarea 
para el que sirven muy bien los ordenadores, y muchas 
veces la presentación gráfica da una idea mucho mejor de 
las tendencias, etc., en los datos que una simple columna 
de números. 

La presentación «gráfica» por excelencia es la que con- 
siste en dibujar una «gráfica», por ejemplo, de un valor 
y que dependa de otro x. Los matemáticos dicen que y 
es una función de x y lo expresan escribiendo y = f(x). 
La gráfica se traza a base de tomar sucesivos valores de 
x, calcular el correspondiente valor de y y (comenzando 
por un punto fijo llamado el «origen» contar x unidades 
en horizontal hacia la derecha e y unidades en vertical ha- 
cia arriba y marcar el punto. 


En ZX BASIC, el comando PLOT hace gran parte de 
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ese trabajo por nosotros. Una vez calculados los valores 
x e y, basta con que digamos 


PLOT x,y 


para hacer que el punto en cuestión se marque en la pan- 
talla. Así: 


10 FOR x=0 TO 255 
20 LET y=SIN x 

30 PLOT x,y 

490 NEXT x 


Pero si pasamos el programa en esa forma veremos que 
no traza una sinusoide, sino que se detiene muy pronto 
con un mensaje de error B (que indica que la gráfica no 
cabe en la pantalla). Hay que asegurarse de que la gráfica 
es lo suficientemente grande para poder verla, pero sin 
que se salga de la pantalla. 

Como dice el manual (en el capítulo 18 para el ZX381, 
en el 17 para el Spectrum), la pantalla está divivida en una 
matriz rectangular de «elementos gráficos» o «pixels» en 
abreviatura (del inglés «picture elements»). Las filas y co- 
lumnas vienen identificadas por un cómputo de números 
(que llamamos «coordenadas»), empezando por el cero 
en el vértice inferior izquierdo; en el ZX81 hay 44 filas 
y 64 columnas, de modo que el vértice superior derecho 
es la columna 63 y la fila 43. Para nosotros es más có- 
modo identificar el vértice superior derecho como 
(x = 63, y = 43); por eso están numeradas hacia arriba 
las filas. Los pixels del Spectrum son mucho más peque- 
ños que los del ZX381, con lo cual hay sitio para cuatro 
veces más pixels en cada dirección y las coordenadas lle- 
gan hasta (x =255, y = 175). 

Ante la eventualidad de que una imagen no quepa en 
la pantalla, cada ordenador se comporta de una manera 
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distinta. Consideremos el dibujo de línea de la Figura 7(a) 
presentado en la pantalla como en la Figura 7(b). Parte 
del dibujo cae fuera de la pantalla y no aparece; esta téc- 
nica se denomina «creación de ventanas» (windowing en 
inglés), porque es como si la pantalla fuese una ventana 
a través de la cual uno mirara el dibujo, viendo sólo aque- 
llas partes que caen dentro de ella. 

Otra técnica se llama «wraparound» en inglés, que li- 
teralmente significa «envolver», «enrollar alrededor de», 
y que á veces se ha traducido por «retorno del cursor»; 
en este caso, las partes de la imagen que se salen por un 
lado aparecen en el lado opuesto, como se observa en la 
Figura 7.1(c). Es como si hubiéramos dibujado la imagen 
sobre un neumático de automóvil (lo que los matemáti- 
cos llaman un «toro») y después lo hubiéramos cortado 
a lo largo y aplanado. Esta técnica se utilizó mucho en 


FIG 7.1 


(b) Efecto ventana 


Inleger out of ranger 270:1 


(c) Efecto de retorno (d) Imagen en ZX BASIC 
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los primeros tiempos de las presentaciones gráficas por 
ser mucho más fácil de ejecutar con la tecnología que ha- 
bía entonces; pero la técnica de creación de ventanas sue- 
le ser más cómoda para el usuario. 


El ZX BASIC no utiliza ninguna de esas técnicas, sino 
que da la señal de error B siempre que PLOT etc. com- 
prueba que un punto se sale de la pantalla. Pero tampoco 
es demasiado difícil comprobar, en el propio programa, 
si estamos o no trazando puntos fuera de la pantalla, e 
incluso hacernos nuestras propias ventanas. En el ejem- 
plo anterior podemos sustituir la línea 30 por 


30 1F x>=0 AND x<=63 AND y>=0 AND y<=33 
THEN PLOT x,y 
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En el ZX81 esta línea de programa únicamente trazará 
el punto si cae dentro de la pantalla; en el Spectrum, so- 
lamente lo trazará si se encuentra en el ángulo inferior 1z- 
quierdo de la pantalla, de modo que la imagen no borre 
lo que ya haya en el resto de la pantalla. Variando los cua- 
tro números con los que se comparan los valores de x e 
y es posible obtener ventanas rectangulares de cualquier 
tamaño y en cualquier lugar de la pantalla. Con premisas 
distintas podemos variar la forma de las ventanas; por 
ejemplo, 


30 IF x>=0 AND x<=y-8 AND y<=940 THEN PLOT x,y 
define una ventana rectangular y 


30 IF (x-123)712+(y-88)12 < 1600 THEN PLOT x,y 


define, en el Spectrum, una ventana circular en el centro 
de la pantalla. (En el Z2X81 habría que utilizar números 
más pequeños para no salirse de la pantalla.) 

Como se indicó al final del capítulo 6, sería preferible 
utilizar (x-128)*(x-128) en lugar de (x-128) f 2 con el fin 
de reducir el tiempo necesario para realizar la prueba. (A 
pesar de que el ordenador tiene que buscar x dos veces 
y hacer dos veces la sustracción, sigue siendo mucho más 
rápido que utilizar el operador de potenciación.) 

Utilicemos el tipo de ventana que utilicemos, el resul- 
tado sigue sin parecerse mucho a una sinusoide. Lo que 
hay que hacer es elegir la escala correcta para trazar la 
imagen. Para todo x, el valor del seno de x está en el in- 
tervalo de —1 a +1. Por eso hemos tenido hasta ahora 
tan poco éxito: porque todos los puntos trazados esta- 
ban o en las dos filas inferiores de pixels o justo fuera de 
la pantalla por la parte superior. 

Por tanto, necesitamos «transformar a escala» y «tras- 
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ladar» la imagen. La transformación a escala se hace mul- 
tiplicando todas las coordenadas por un mismo número, 
de manera que la imagen se haga más grande o más pe- 
queña, pero centrada siempre en el mismo origen; la tras- 
lación consiste en sumar un mismo número a todas las 
coordenadas y para que la imagen baje o suba, o bien a 
la coordenada x para desplazarla lateralmente. Si:consi- 
deramos sólo las coordenadas y por el momento, pode- 
mos hacer 


25 LET y = y*20+22 
en el ZX81, o bien 
25 LET y = yXxB80+88 
en el Spectrum, para confinar los valores de y en el in- 


tervalo de 2 a 42 en el ZX81 y de 8 a 168 en el Spectrum, 
que encajan bien en la pantalla. 


Vayamos con la dirección x. Un ciclo completo de la 
sinusoide va de cero a 27, Oo aproximadamente 6.3, de 
modo que si dividimos por 10 la coordenada x del pixel 
obtendremos un ciclo completo en el ZX81 y cuatro en 
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el Spectrum. Nos da igual empezar en x=0, por lo cual 
no hace falta ninguna traslación. Obsérvese, de pasada, 
que en la dirección x comenzamos por la coordenada del 
pixel y calculamos el valor, mientras que en la dirección 
y es al revés: empezamos por el valor (derivado del valor 
de x) y calculamos la coordenada del pixel. 

Reescribamos el programa en la versión ZX81. Recor- 
demos que ahora tenemos la seguridad de que todos los 
puntos (x,y) caen dentro de la pantalla, de modo que no 
hay necesidad de crear ventanas. 


10 FOR x=0 TO 63 

20 LET y = SIM (x/10) 
25 LET y = y*20+22 
30 PLOT x,y 

40 NEXT xy 


Este programa calcula la coordenada y en dos etapas (lí- 
neas 20 y 25) antes de utilizarla en la línea 30. Es posible 
simplificar el programa haciendo los cálculos de una sola 
vez y colocando la expresión en el comando PLOT en lu- 
gar de poner el resultado en la variable y y sacarlo luego 
otra vez: 


10 FOR x=0 TO 63 
30 PLOT x, 20 % SIN (x/10) + 22 
90 HEXT y 


Este programa funciona en el Spectrum, pero da una 
gráfica muy pequeña, arrebujada en el ángulo inferior iz- 
quierdo de la pantalla. Para llenarla hay que hacer lo 
siguiente: 


10 FOR x=0 TO 255 
30 PLOT x, 80 % SIN (x/10) + 88 
40 NEXT x 
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Conviene que el lector ensaye uno de estos programas 
en un ZX81 o Spectrum y haga pruebas cambiando las 
distintas constantes (dos en la línea 10, tres en la 30) para 
ver qué pasa. 


Una versión más general 


Veamos cómo se puede adaptar el programa para que 
imprima el valor de cualquier expresión. Este ejemplo 
pone de relieve la potencia del operador VAL en el ZX 
BASIC, que permite que la cadena contenga cualquier ex- 
presión en lugar de limitarse a números literales. La ver- 
sión es la que vale para el Spectrum. 


10 LET 1=0 
20 DIH y (235) 
30 LET ymin = OQ 
40 LET ymax = 
50 LET x = O 

SS LET xsalto = OQ 

60 PRINT "Dibujando gráficos" 

70 PRINT 

go PRINT "Teclee el valor de y como una” 
90 PRINT * expresión en función de x." 
100 PRINT 
110 PRINT "Utílice las teclas especiales” 


120 PRINT ” para SIN, LOG, etc.” 
130 PRINT  ” en lugar de teclear” 
140 PRINT " letra por letra.” 
150 INPUT £% 
160 CcLS 

170 PRIMHUT "y = "34% 


180 PRINT 

190 PRINT "x empieza en? " 
zZ00 INPUT x 

210 PRINT "x termina en? " 
220 INPUT xmax 


zZ30 LET xsalto = (xmax-x)/255 
240 CLS 


250 PRINT "y = "¡4% 
Z60 LET yO = VAL 4% 
270 LET ymin = yO 
z80 LET ymax = yO 
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290 REM ahora calcula los otros valores de y 
encontrando el máximo y minimo 

300 FOR ií = 1 TO 255 

210 LET x= xx + xsalto 

320 LET y(li) = VAL $f% 

2330 IF y(i) € ymin THEN LET ymin = y(i) 

240 IF y(1) > ymax THEN LET ymax = y(i) 

350 NEXT 4 

360 REM ahora se averigua el intervalo de la y 

270 IF ymin = ymax THEN LET ymax = ymin+l 

2280 LET yescala = 168 / (ymax-ymin) 

290 PLOT O, (yO-ymiri) *X yescala 

400 FOR ii = 1 TO 255 

410 PLOT i, (y(i)-ymin) XX yescala 


420  MEXT i 


En el ZX81 hay que cambiar 255 por 63 cada vez que 
salga, y poner 41 en lugar de 168 en la línea 380. En el 
Spectrum se pueden omitir las líneas 180 a 210 y 240 y 250 
siempre que se sustituya la línea 220 por 


220 INPUT "x varla desde "3x5 " hasta "¿jxmax 


En las líneas 10 a 50 nos aseguramos de que las varia- 
bles que vamos a utilizar más a menudo se mencionen an- 
tes de f$; eso, como ya explicamos al final del capítulo 6, 
ayuda a mantener lo más corta posible la pausa entre el 
momento en que el usuario introduce las últimas entra- 
das y el momento en que comienzan a aparecer los re- 
sultados. Almacenamos los valores en una matriz para no 
tener que calcularlos dos veces; si cada uno de ellos lleva 
mucho tiempo en calcularlo, el segundo bucle ganará mu- 
cho en velocidad (líneas 400 a 420), mientras que si lle- 
van poco tiempo el programa marchará de todas formas 
muy deprisa y no supondrá penalización alguna. Por otro 
lado, podríamos calcular dos veces todos los valores, 
como en el programa siguiente: 


260 LET ymin VAL 4% 
270 LET ymax = ymiín 
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ze0 LET xmin = x 
290 REM ahora encuentra el valor máximo y el 
minimo de y 

300 FOR i=1 TO 255 

3210 LET x= 14 + xsalto 

220 LET y = UNL £% 

320 IF y £ ymin THEN LET ymin 


5 


y 


290 IF y > ymax THEN LET ymax = y 

350 NEXT ii 

3609 REM ahora se averigua el intervalo de la y 
270 IF ymin = ymax THEN LET ymax = ymin + 1 


280 LET yescala = 168 / (ymax-ymin) 
370 LET x = xmin 

J00 FOR ji = O TO 255 

310 PLOT íi, (VAL 4% -— ymin) *X yescala 
915 LET x = x + xsalto 

420 NEXT i 


(Las líneas 10 a 250 son las mismas que antes, sólo que 
la línea 20 es un LET en lugar de un DIM.) Con ello ha- 
cemos que la gráfica comience a trazarse un poco antes 
(porque el bucle de las líneas 300 a 350 es un poco más 
rápido), pero normalmente tardará más tiempo en finali- 
zarla; psicológicamente podría ser mejor, porque el usua- 
rio puede ver que el programa está haciendo algo e in- 
cluso puede comprobar por dónde va. 

Obsérvese que si hubiésemos definido yescala como 
(ymax-ymin)/168, en la línea 410 tendríamos que dividir 
en lugar de multiplicar, y la división lleva más tiempo que 
la multiplicación. Análogamente, en la línea 310 calcula- 
mos la x siguiente a partir de la antigua en lugar de de- 
rivarla de nuevo cada vez a partir de ¿ como en 


310 LET x = xmin + i *X xsalto 


porque estaríamos haciendo una multiplicación inne- 
cesaria. 
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Además de trazar gráficas en las que los pares (x,y) es- 
tán relacionados mediante alguna fórmula matemática 
como la almacenada en f$ en el programa anterior, po- 
demos dibujar gráficas en las que los pares (x,y) repre- 
senten datos experimentales o de otro tipo extraídos del 
«mundo real». La forma gráfica puede poner de mani- 
fiesto tendencias o variaciones periódicas que no resultan 
evidentes a la vista de los datos numéricos. Un programa 
para trazar una gráfica de ese tipo es el siguiente: 


10 PRINT "Titulo para el gráfico?” 

20 INPUT ts 

20 PRINT ts 

40 PRINT "Valor minimo de y?" 

so INPUT ymin 

60 PRINT ymip 

70 PRINT "Valor máximo de y?" 

8o INPUT ymax 

90 IF ymax>ymiín THEN GOTO 120 
100 PRINT "El valor máximo no es mayor" 
110 PRINT " que el minimo!" 
120 GOTO 70 
130 LET yescala = 168 / (ymax-ymin) 
1940 PRINT "Ahora hay que dar los valores ” 


150 PRINT "” de y de izda. a dcha.” 
160 IMPUT y 
1>0 CLS 


180 PRINT ts 

190 LET x=0 

200 IF y>=ymin AND y<=ymax THEN 
PLOT x, (ly-ymin) %*X yescala 

210 LET x = x+1 

220 IF x>235 THEN GOTO 9999 

220 INPUT y 

240 GOTO 200 


Probablemente habría que imprimir otro mensaje en- 
tre las líneas 150 y 160 advirtiendo al usuario que si hay 
menos de 256 números puede utilizar la tecla STOP (véa- 
se el capítulo 9 del manual del ZX31 o el capítulo 2 del 
de Spectrum). 
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Obsérvese que en la línea 90 comprobamos que los va- 
lores máximo y mínimo suministrados por el usuario 
cumplen con la condición más elemental que se les pue- 
de pedir (la de ser ymax > ymin), pero en cambio (línea 
200) no damos por supuesto que los valores y caen den- 
tro de esos límites. Por otro lado, no se hace esfuerzo al- 
guno por maximizar la velocidad del programa, porque 
entre el momento de darle un valor de entrada y el de so- 
licitar el siguiente tiene muy poco que hacer la máquina. 

Otro tipo de presentación visual que se utiliza a me- 
nudo es el histograma. Para que el programa dibuje un 
histograma basta con sustituir la línea 200 por 


200 1F y>ymax THEN LET y=ymax 

202 FOR j¿¡=0 TO (y-ymin) X*X yescala 
204 PLOT »x,j 

206 NEXT j 


y modificar convenientemente el mensaje impreso por la 
línea 10. En el Spectrum resultará más rápido utilizar el 
comando DRAW: conservamos la línea 200, pero en lu- 
gar de las líneas 202 a 206 utilizamos 


204 1IF y>=ymín THEN PLOT x,0: DRAW O, 
(y-ymin)X*Xxyescala 


Los histogramas se dibujan a menudo separando las co- 
lumnas; lo único que hay que hacer es sustituir la línea 
210 por 


210 LET x = x+2 
Puede que en el Spectrum queramos hacer más gruesas 


las columnas; para ello sustituimos las líneas 200 a 220 
del programa original por 
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200 IF y>ymax THEN LET y=ymax 

202 IF y<%ymin THEN GOTO 210 

204 LET y = (y-ymin) *X yescala 

206 FOR j » TO x+3: PLOT j¿,O0:; DRAW 0O,y: NEXT j 
z10 LET x = x4+6 

220 '1F x>252 THEN GOTO 9999 


A veces es útil presentar los histogramas en varios co- 
lores. El ZX81 permite utilizar, además del blanco y del 
negro, el gris, utilizando los caracteres disponibles en el 
modo G con las teclas ASDFGH y SHIFT apretado (véa- 
se el capítulo 11 del manual del ZX81). No están apoya- 
das por PLOT, de manera que hay que utilizar PRINT 
AT o bien acumular la imagen en una matriz de caracte- 
res y luego copiarla en la pantalla cuando esté completa. 
Un ejemplo de programa para el ZX81 utilizando PRINT 
AT se puede obtener sustituyendo las líneas 200 a 220 
del programa original por 


192 REM se define el código de carácter para 
bloque y para mitad de bloque 

194 LET bloque = 8 

196 LET mitad = 29 ( 

198 REM se dibuja la columna 

200 LET y = (y-ymin) X*X yescala 

202 [FOR v=21 TO 1 STEP -1 

204 IF y>1.5 THEN GOTO 210 

206 IF y>0.5 THEN PRINT AT v,xj CHR*% mitad; 

202 GOTO 216 

210 PRIHWHT AT v,xj CHR% bloque; 

212 LET y = y-2 

219 NEXT y 

zZ16 LET- > — 3et1 


144 John y Catherine Grant 


218 IF x>31 THEN GOTO 9999 


220 REM cambia colores para la siguiente columna 


223 LET bloque = 136-bloque 
226 LET mitad = 1340-mitad 


La línea 223 cambia bloque de 8, que es el código de 
un cuadrado gris, a 128, el código de un cuadrado negro; 
la línea 226 cambia mitad de 9, que es un semicuadrado 
gris, a 131, que es un semicuadrado negro. Si sustituimos 
esas líneas por 


222 LET bloque = 13-bloque 
226 LET mitad = 13-mitad 


entonces las columnas negras serán la mitad de anchas y 
dejarán un hueco antes de la siguiente columna gris. No 
existen caracteres que permitan hacer columnas grises 
más estrechas, a menos que coloquemos el histograma de 
lado (cf. el ejercicio 3 en el capítulo 11 del manual del 
ZX81). 

En el Spectrum tenemos ocho colores, incluidos el 
blanco y el negro, y dos niveles de brillo. Podemos tra- 
zar columnas de la anchura que queramos y con separa- 
ciones de cualquier ancho; la versión anterior del progra- 
ma para el Spectrum tenía columnas de cuatro pixels de 
anchura, todas del mismo color, sin separaciones de dos 
pixels; pero si añadimos 


195 LET color = 2 

206 FOR j = x to x+9: PLOT IHNK color; j,0: 
DRAW INK colorj 0O,y: NEXT j¿ 

210 LET x = x4+8 

225 LET color = 2-color 


(que hará que se borren las líneas 206 a 210 anteriores), 
entonces las columnas serán alternativamente rojas y azul 
pálido de cinco pixels de anchura y separaciones de tres 
pixels. 
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Aunque las gráficas del Spectrum tienen alta resolución 
cuando se utilizan imágenes monocromáticas (con los 
mismos colores de «papel» y «tinta», «paper» e «ink», en 
toda la pantalla), tratándose de imágenes multicolores la 
resolución con que se pueden especificar los colores es 
mucho menor. La pantalla está dividida en «posiciones 
de carácter»; cada posición consta de una configuración 
de 8 x 8 pixels, es decir, hay 64 pixels en cada posición 
de carácter. Cuando utilizamos la pantalla para escribir 
texto (cuando utilizamos el comando PRINT, por ejem- 
plo), cada carácter impreso ocupa una posición de carác- 
ter. Para cada posición de carácter es posible especificar 
los colores del «papel» o fondo y de la «tinta» (en cada 
caso, uno de ocho colores, si contamos el negro y el blan- 
co como tales), y especificar también si queremos resal- 
tar el carácter (haciéndolo más brillante de lo normal) y 
si queremos que parpadee. Cuando se trata de texto, exis- 
te libertad absoluta para especificar independientemente 
el color de cada carácter. 

No obstante, al dibujar gráficos es necesario tener pre- 
sente que los 64 pixels que componen cada posición de 
carácter comparten la misma especificación de color. Re- 
saltar uno de ellos, o hacer que parpadee, equivale a re- 
saltarlos todos ellos o hacer que parpadeen todos juntos. 
Sólo se dispone de dos colores: el del papel y el de la tinta. 

Imaginemos que queremos trazar un histograma con 
columnas adyacentes rojas, azules y verdes sobre fondo 
blanco. Supongamos que empezamos por dibujar la co- 
lumna roja en la mitad derecha de una columna de posi- 
ciones de carácter en tinta roja sobre papel blanco (con 
la x desde 4 hasta 7, por ejemplo), como en la línea 206 
del último programa. Luego podemos pasar a dibujar la 
columna azul a su lado (con la x de 8 a 11) en tinta azul 
sobre papel blanco. Si ahora intentamos añadir la colum- 
na verde, que supondremos la mitad de alta que la azul, 
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comprobaremos que la mitad inferior de la columna azul 
(que comparte cuadrados de carácter con ella) cambia a 
verde, debido a que estamos cambiando el color de la tin- 
ta en esas posiciones de carácter. 

Se puede crear la columna verde cambiando el color 
del papel a verde; pero esta operación también se realiza 
de una posición de carácter por vez; al cambiar la fila in- 
ferior de blanco a verde cambian también las siete filas si- 
guientes. Así pues, solamente se puede conseguir un oc- 
tavo de la resolución normal del Spectrum, y la mitad de 
la del ZX81. Supongamos ahora que la columna azul tie- 
ne, por ejemplo, 50 pixels de altura y que la columna ver- 
de es más alta: lo que ocurrirá es que habremos cambia- 
do a verde el color del papel por encima de la parte su- 
perior de la columna azul. Para evitar con toda seguridad 
este inconveniente es necesario que la altura de la colum- 
na azul sea un múltiplo de 8 pixels. 

Una manera de salvar esta limitación consiste en utili- 
zar medios tonos para generar colores intermedios, exac- 
tamente igual que hace el ZX81 para generar el gris. (Esta 
solución se menciona en el capítulo 17 del manual del 
Spectrum). Por ejemplo, dejando las líneas 10 a 130 del 
programa anterior, podemos poner 


140 REN los gráficos definidos por usuario 
desde b a i se ponen con medio tono 

150 FOR i=USR "b” TQ USR "b"+62 STEP 2 

160 POKE i, BIN O1010000: POKE i+1, BIN 10100000 

170 NEXT i 

180 REM ahora de la a hasta la h se definen 
entre O y 7 filas de medio tono 

190 FOR i=0 TO ? 

200 FOR j¡=USR "a" + 8Xi TO USR "a" + 7Xi + 7? 

210 POKE j,0O 

z20 NEXT j 

230 MEXT 4 

240 PAPER 7: INK OS CLS: PRINT ts 

250 FOR i=1 TO 16 

z260 INK 2: LET c$=" rojo ” 

270 GOSUB 1000 
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280 FOR j¡=iXx16-12 TO 1iX1á6-9: PLOT j,O: 
DRAW 0,y!: NEXT j 

290 INK 1: LET c$=" azul pálido ” 

300 GOSUB 1000 z 

310 FOR j¡=21 TO 1 STEP -1 


320 IF y<7? THEN PRINT AT ¿¡,iXx2-15 
CHR%$(145+y)j: GOTO 3350 
330 LET y=y-8: PRINT AT j¡,iX2-1j CHR$(152)5 
340 MEXT j 
350 LET c$=" azul oscuro " ' 
360 GOSUB 1000 
370 FOR j¡=iX*x*16-4 TO ¡iX1ó6-1: PLOT j¿,O: 
- DRAW 0,y: NEXT j 
380 MEXT 1 
290 GOTO 9999 


100 
1000 INPUT "Valor "3(1)5 (cB)p5": "5y 
1010 LET y = (y-ymin) %X yescala 


1020 RETURH 


El programa dibuja la columna roja en un conjunto de 
posiciones de carácter y la azul y la azul pálida en otro. 
El azul pálido se ejecuta antes que el azul oscuro porque 
PRINT escribe el cuadrado de caracteres completo; pero 
también puede ejecutarlo después, con: 


PRINT OVER 1; AT j,iX2-1;5 CHR$(195+y)5 


que no afectará a las partes que han sido ya escritas por 
DRAW. 

Los temas que acabamos de comentar admiten una se- 
rie de variaciones que el lector debería realizar a título de 
ejercicios. Mencionemos las siguientes: trazar una recta 
entre puntos adyacentes de una gráfica de manera que 
ésta forme una línea continua aun cuando un valor de y 
difiera del siguiente en más de 1; trazar los ejes de la grá- 
fica y rotularlos; y trazar histogramas en los que cada co- 
lumna tenga más de un color. Un ejemplo de esto último 
sería un histograma de ventas en el que las ventas inte- 
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riores aparecieran en tono oscuro y las exportaciones en 
tono claro. 


Diagramas de dispersión 


Otro modo de presentar los datos del «mundo real» es 
en la forma de un «diagrama de dispersión», en el cual 
simplemente trazamos puntos (x,y). Este tipo de diagra- 
mas nos permite ver si existe correlación entre x e y: si 
la hay, los puntos se agruparán alrededor de una recta o 
de una curva; si no la hay, entonces los puntos se distri- 
buirán aleatoriamente por toda la pantalla. 

Un programa adecuado para confeccionar diagramas de 
dispersión en el ZX Spectrum es: 


10 REM yx es máx., hh es min., v es valor 
20 DIM x (2) 4 

30 DIM n(2) 

90 DIM v(12) 

50 PRINT "Titulo? "; 

60 INPUT ts 

7O PRINT ts 

=J0] FOR i=1 TO 2 

0 PRINT "Valor minimo de ";j"xy"(1)5"? "; 
100 INPUT n(i) 

110 PRINT n(1) 

120 PRINT "Valor máximo de "3"xy"(i);5"? "; 
130 INPUT x(1) 

140 IF x(1)>3n(1) THEN GOTO 170 

150 PRINT *El máximo debe ser mayor que”, 

E el minimo" ' - 

1650 GOTO 0 

170 —PRINWT x(1) 

180  HEXT 1 

1790 PRINT "Ahora teclee pares de (x,y)" 
200 PRINT "STOP para terminar" 
z10 INPUT v(1) 
220 CLS 
230 PRINT ts 
2390 INPUT v(2) 
230 FOR i=1 TO 2 
260 1IF v(i)<n(1) OR v(1)>x(14) THEN GOTO 300 
270 LET v(i) = (v(i1)-nti)) / (x(li)=nti)) 
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280 —MEXT 4 

290 PLOT v(1)X255,v(2)Xx168 
200 INPUT v(1) 

2310 GOTO 240 


En el ZX81, la línea 290 se transforma en 


290 PLOT v(1)%X63,v(2)X31 


debido a la menor resolución de sus gráficos. 
La expresión 


“Y :01) 


utilizada en las líneas 90 y 120 es una fragmentación en 
la que seleccionamos el ¿-ésimo carácter de la cadena 
«xy». Así pues, se imprime x cuando ¿=1, y se imprime 
y cuando ¿=2. Para ser más exactos, se imprime x cuan- 
do el valor de : está entre 0,5 y 1,5, e y cuando está entre 
1,5 y 2,5; si cae fuera del intervalo de 0,5 a 2,5 el pro- 
grama se detiene con código de error 3 (subscript out of 
range = subíndice fuera del intervalo) o B (integer out of 
range = entero fuera del intervalo). Comparémoslo con 


(*x" AND í=1) + ("y" AND 1=2) 
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que sigue dando x cuando ¿=1 e y cuando 1=2, pero que 
da la cadena vacía (sin causar error) si tiene cualquier otro 
valor, entre ellos 1.0001 ó —42, por ejemplo. 

Para ver qué aspecto tendría un diagrama de dispersión 
sin necesidad de tener datos reales, podemos hacer lo si- 
guiente. En primer lugar para un patrón completamente 
aleatorio: 


10 FOR i=1 TO 200 
20 PLOT RNDX255, RNDX*X168 
30 MEXT i 


Las líneas regulares de puntos que aparecen son un ar- 
tefacto de RND, el cual produce números que no son tan 
aleatorios como deberían ser. Como siempre, en el caso 
del ZX81 los multiplicadores en la línea 20 deben ser 63 
y 41 (ó 43, por no existir ningún título). Además, el nú- 
mero de puntos debería ser de 30 ó 40 en lugar de 200, 
porque si no la mayor parte de la pantalla estaría negra. 
Para el tipo de distribución que con mayor verosimilitud 
se da en la naturaleza, sin correlación entre x e y: 


O FOR i=1 TQ 200 
20 GOSURB 1000 
30 LET x=v 
40 GOSUB 1000 
50 LET y=v 
60 IF xQ OR x>1 OR y<O OR y>1 THEN GOTO 20 
70 PLOT x%*X255, y*168 
80 NEXT i 
90 STOP 
1000 REM convierte a v en un número aleatorio 
especial 
1010 LET yv = RNDX1.9999 + ,0NQ00S 
1020 LET v = 0.1 X LN (v/(2-v)) + 0.5 
1030 RETURN 


Al igual que antes, cualquier figura aparentemente re- 
gular es un artefacto de RND. Para obtener un diagrama 
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de dispersión en el que los dos valores estén relacionados 
linealmente, sustitúyase la línea 50 por 


50 LET y = 0.2 + xX0.6 + vXx0.2 


El siguiente programa da una relación no lineal 


50 LET y = 3%*(x-0.9)*X(x-0.9) + vx0.2 


Capítulo 8 
Estadística 


El objetivo de cualquier experimento científico es con- 
trastar una hipótesis (o teoría) comprobando para ello si 
determinado resultado predicho por la hipótesis se da o 
no en la práctica. A veces el experimento es de tal natu- 
raleza que la respuesta es inequívoca y no hay duda de 
que el suceso predicho ha ocurrido; pero en otras mu- 
chas ocasiones, y sobre todo en las ciencias de la vida, 
hay que recurrir a los métodos estadísticos para averiguar 
si el resultado del experimento concuerda o no con la hi- 
pótesis. Para ser más concretos: necesitamos saber lo ve- 
rosímil que sería el suceso o conjunto de sucesos obser- 
vado en el caso de que la hipótesis fuese correcta. 

Por ejemplo, en un experimento consistente en culti- 
var un cierto número de plantas a partir de semillas, la 
hipótesis a contrastar podría predecir que la mitad de ellas 
tendría flores amarillas, la cuarta parte de ellas flores ro- 
jas, un octavo flores azules, y otro octavo flores color 
púrpura. Imaginemos que del total sobreviven y florecen 
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404 plantas. La hipótesis no predice que se vaya a obte- 
ner 202 amarillas, 101 rojas, 50 azules, 50 color púrpura 
y una a rayas azules y púrpura. Lo que predice es que 
cada una de las 404 plantas tiene una probabilidad del 
50% de tener flores amarillas, una probabilidad de 3 con- 
tra 1 de tenerlas rojas, una probabilidad de 7 contra 1 de 
tenerlas azules, y la misma para el púrpura. La hipótesis 
puede ser correcta y aún así salir azules las 404 flores; 
pero es una posibilidad tan inverosímil que pensaríamos 
que la hipótesis es falsa o que el experimento está muy 
mal hecho. En la práctica obtendríamos resultados como, 
por ejemplo, 190 amarillas, 126 rojas, 47 azules y 41 púr- 
puras, y entonces querremos saber qué probabilidad tie- 
ne ese resultado si las probabilidades son las menciona- 
das anteriormente. 

Esto se calcula utilizando el test de chi cuadrado (x?), 
que mide el grado de diferencia entre los resultados ob- 
servados (en este caso 190, 126, 47 y 41) y los resultados 
esperados (en este caso 202, 101, 50,5 y 50,5). A partir 
de x? y del número de «grados de libertad» se calcula la 
probabilidad de que los resultados se desvíen de las ci- 
fras esperadas en la cuantía en que se desvían los resul- 
tados observados. 

El número de grados de libertad es siempre igual a una 
unidad menos que el número de posibles resultados de 
cada suceso en el experimento. En el ejemplo que hemos 
puesto tenemos 404 sucesos, cada uno de los cuales tiene 
cuatro posibles resultados: ama: illo, rojo, azul y púrpu- 
ra, de manera que los resultados observados consisten en 
cuatro números que tienen que sumar 404. Los grados de 
libertad son tres, porque cualquiera de esos números pue- 
de variar independientemente; podemos obtener un nú- 
mero cualquiera de flores amarillas, y cualquier número 
de las restantes puede tenerlas rojas, y del resto cualquier 
número de flores pueden ser azules; pero a partir de ahí 
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todas las restantes tienen que tener por fuerza flores co- 
lor púrpura. 

El siguiente programa calcula la probabilidad con arre- 
glo a las ecuaciones derivadas por M. Abramowitz y Í. A. 
Segun, en Handbook of Mathematical Functions, Dover 
Publications Inc., Nueva York, 1965, ecuaciones (26.4.4), 
(26.4.5), (26.2.1), (26.2.5) y (26.2.17). Damos primero la 
versión del Spectrum y luego las alteraciones para el 
ZX81 (que sólo afectan a los avisos de INPUT y a la pre- 
sentación de los resultados en la pantalla de TV). 

Las líneas 10 a 80 se encargan de dibujar una tabla en 
la pantalla con el fin de poder procesar varios conjuntos 
de resultados. Las líneas 100 a 160 establecen los coefi- 
cientes que se utilizan en el cálculo de q(x) que se nece- 
sita en el caso de que el número de grados de libertad sea 
impar. Utilizando este método en lugar de escribir los 
coeficientes directamente en la línea 520 en forma de li- 
terales se obtiene una disposición más limpia; hace que 
el programa pase más despacio, pero el retardo apenas re- 
sulta perceptible. Las líneas 310 a 350 acumulan x? como 
la suma de 


(x—e) / e 


donde e es el valor esperando y x el valor observado, evi- 
tando utilizar el operador de potenciación, que es muy 
lento. 

Si v, el número de grados'de libertad, es un número 
par, hacemos que el programa calcule 


(v—2)/2 


5 23 x? 1 (2x4Xx6X ... X2r) 
r=1 
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s=yx012 + 1Qx4) + xX2/QX4Xx6) + ... 
o FX ?/(QX4X6 X ... (v—2)) 


que el programa lo calcula como 


s=yY/2x (1+ y2/4x (1 + y10/6X ... 

.. Xx (1 + y2/((0-2) x (1 +0)... )) 
El bucle en las líneas 420 a 440 comienza en el extre- 
mo derecho de esta expresión, almacenando cada vez el 


resultado intermedio en q; el paso final se realiza en la 
línea 460, que calcula la probabilidad como 


exp (— x?/2) X (1 + 5) 


Si v es un número impar, tenemos: 
SENSE VYV EIA E ss 
ENE TA 0 0 =2)) 


que se calcula como 


S=xX(1+1/3x (1+x/5) X ... 
x (1 + 0-2) X (1 + 0)... ) 


Al igual que antes, el bucle en las líneas 420 a 440 rea- 
liza la mayor parte del trabajo; el último paso se encuen- 
tra esta vez en la línea 530, que calcula la probabilidad en 
la forma siguiente: 


EXP. (-chi2/2) * SQR (2/P1) %X (1-píchi) + s) 
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utilizando el valor de 1-p(chi) calculado en la línea 
anterior. 


10 REM test de chi-cuadrado 

15 REM cabecera de la pantalla 

20 CLS . 

30 PRINT "grados de 2 Proba-" 
40 PRINT "libertad chi bilidad” 
50  PRINT 


0 PLOT 0,156: DRAW 255,0 

70 PLOT 85,0: DRAW 0,175 

80 PLOT 170,0: DRAW 0,175 

100 REM coeficientes del poliromio 
110 LET b1 =  0.31938153 

120 LET b2 = -0.356543782 

130 LET b3 1.781477937 

140 LET b3 -1.821255978 


hi 


150 LET b3 = 1.330274929 

150 LET p = 0.2316419 

200 REM entrada de datos 

210 INPUT "grados de libertad: "ju 
300 REM cálculo de chi-cuadrado 


310 LET chi2=0 
320 FOR n=1 TO v+1 
330 INPUT "*Valor observado: "jx, 
"Valor esperado; “je 
390 LET chi2 = chi2 + (x-e)X*(x-€e)/e 
350  —MEXT n 
400 REM cálculo del valor de probabilidad 
410 LET q=0 
420 FOR n=v TO 3 STEP -2 
430 LET q = 1 + (chi2/n) * q 
340 MEXT n 
450 IF n=1 THEN GOTO 500 
455 REM aqui si v es par 
460 LET q = EXP. (-chi2/2) %*% (1 + (chi2/2) * q) 
2370 GOTO 400 


so00 REM aqui sí ves impar 
510 LET chi = SQR chi2: LET t = 1/(1+px*chi) 
520 LETb = ((((DIXt+Db9)%t+Db3)%Xt+D2)Xt+D1)%t 


530 LET q = EXP (-chi2/2) % SQOR (2/PI) >» 
: (tb + chidtg) 

600 REM visualiza los: resultados 

610 LET x=v; GOSUB 1000 

620 PRINT x% 

630 LET x=chi2: LET n=4: GOSUB 2000 

640 PRINT AT 23-PEEK 23%89,11; x:% 

650 LET x=q: LET n=6: GOSUB 2000 

“A PRINT AT 23-PEEK 23689,22; x% 

200 INPUT "Hay más valores? (S/H) “jas 
710 IF a$="S" OR a$="s5" THEM GOTO 200 
720 IF a$X> "NM" AND a$<>*"rn" THEN GOTO 200 
900 GOTO 9999 
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1000 REM hace x% ígual a x redondeado a 
entero y alineado a la derecha 
en 10 caracteres 

1010 LET xs " ; " + STR$ INT (x+0.5) 

1020 LET x% = x$S5(LEN x% - 9 TO ) 

1030 RETURN 

2000 REN hace x% igual a x redondeado a n 
decimales y alineado a la derecha 
10 caracteres 

2002 REM asume Que O<X<x<10P(9-n) y Oaxn<92 

2010 LET x5 STR$ INT (x %*% 107rm + 0.5) 

2020 LET x% "00000000”* (LEN x3% TO rn) + x% 

2030 LET x5 ” "(LEN x% TO 8) + x% 

2040 LET x8% xB5(TO 92-n) + ".”* + x$(10-n TO ) 

2050 RETURN 


En la rutina de las líneas 2000 a 2050, la línea 2010 ajus- 
ta x$ a la cadena de dígitos requerida sin su punto deci- 
mal, la línea 2020 añade si es necesario ceros a la izquier- 
da de x$ para garantizar que haya al menos n+1 dígitos, 
la línea 2030 añade espacios hasta hacer un total de 9 ca- 
racteres, y la línea 2040 inserta el punto decimal. 

Los principales cambios que hacen falta para el ZX81 
son sustituir las líneas 50 a 80 por 


50 FOR i= O TO 43 
55 PLOT 20,1 

é0 PLOT 42,1 

65 MEXT 4 

70 FOR 1=0 TO 43 
73 PLOT ¡1,39 

80 NEXT á 


y sustituir AT 23-PEEK 23689, por “TAB” en las líneas 
640 y 660. (En el Spectrum no podemos usar TAB por- 
que produce espacios en pantalla que borrarían las líneas 
verticales trazadas por las líneas 70 y 80. En el ZX81, 
TAB salta por encima de ellas lo mismo que lo hace AT. 
Digamos de paso que en ambos modelos el separador de 
«coma» de PRINT produce espacios, mientras que «nue- 
va línea» al final de un comando PRINT no.) 

Cuando solamente hay un grado de libertad, los resul- 
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tados obtenidos con el programa anienor inducen un 
poco a error, porque la distribución de xÍ es continua, 
mientras que los valores observados son discretos. Es de- 
cir, que el modo en que calculamos la probabilidad de 
que x/ esté dentro de cierto intervalo no tiene en cuenta 
el hecho de que sólo son posibles ciertos valores de x?. 
La corrección de Yates sí lo tiene en cuenta y da un va- 
lor más correcto de la probabilidad en el caso en que exis- 
te un solo grado de libertad; las líneas siguientes deben 
agregarse al programa a la hora de ejecutarlo. 


220 IF v<>1 THEN GOTO 300 


230 IMPUT “Con corrección de Yates?(S/M)"jas 
240 IF a$="NM" OR a$="n" THEN GOTO 300 
295 IF a$<>"S" AND a$<>"s" THEN GOTO 230 
250 INPUT "Valor observado: "¡x, 
"Valor esperado: "je 
260 LET x = ABS (x-e) -—- 0.5: LET chi2 = xXx/e 
270 INPUT "Valor observado: "“j¡x, 
"Valor esperado: "je 
280 LET x = ABS (x-e) - 0.5 


285 LET chi2 = chi2 + x%*x/e 
290 GATA 300 
300 REM cálculo de chi-cuadrado sin corrección 


Regresión 


Al final del Capítulo 7 echamos un vistazo muy rápi- 
do a los diagramas de dispersión, que son de utilidad en 
aquellas ocasiones en que se miden dos valores y nos in- 
teresa averiguar si existe o no alguna correlación entre 
ellos. En esta sección examinaremos la manera en que el 
ordenador puede proporcionar medidas objetivas de la 
relación entre dichos valores. 

Aquí, al igual que en el test de chi cuadrado (x?), es- 
tamos considerando el resultado de una serie de ensayos 
independientes. El test se utiliza cuando cada ensayo tie- 
ne tan solo un número finito (y a menudo muy peque- 
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ño) de posibles resultados, como ocurría en el ejemplo 
del cultivo de flores, en donde sólo había cuatro resulta- 
dos posibles en cada ensayo (amarillo, rojo, azul o púr- 
pura; descartábamos todos los ensayos en los que no ob- 
teníamos ninguna flor). Para cada uno de los resultados 
posibles se cuenta el número de ensayos con ese resulta- 
do. En el test de x? suponíamos que las diferencias entre 
los ensayos se debían al azar (o a variaciones aleatorias 
en algún factor que no medíamos) e investigábamos la 
probabilidad de que, siendo correcta la hipótesis, ocurrie- 
ra el conjunto de resultados que observábamos. 

Las técnicas descritas en esta sección se aplican a aque- 
llos casos en que cada ensayo da lugar a dos mediciones 
(que llamaremos aquí x e y) y lo que buscamos es una po- 
sible correlación entre las dos cosas medidas, lo cual in- 
dicaría que están conectadas de algún modo. Lo que se 
busca es alguna relación entre ambas, de manera que po- 
damos decir que y es cierta función de x (es decir, un va- 
lor que se calcula mediante alguna fórmula algebraica en 
la que interviene x), más un componente adicional que es 
una variación aleatoria. 

Lo que implícitamente se está diciendo es que existe 
una relación causal entre lo que mide x (sea lo que fue- 
re) y lo que mide y (sea también lo que fuere), de modo 
que dado el valor de x en un ensayo concreto podemos 
predecir el valor de y con más precisión de la que po- 
dríamos conseguir de otra manera. Esto contrasta con el 
ejemplo puesto a propósito del test de x? en el cual no 
teníamos ninguna información que nos permitiese selec- 
cionar de antemano qué plantas era más probable que tu- 
vieran flores rojas, por ejemplo. 

Así, cabría preguntarse si la estatura de la gente está re- 
lacionada con la estatura de sus padres. Podríamos ir a 
una serie de estudiantes universitarios/as y preguntarles 
por su estatura (la variable y) y la media de las estaturas 
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de sus padres (la variable x). Evidentemente habría que 
hacerlo para estudiantes varones y estudiantes hembras 
por separado, porque los hombres son por término me- 
dio más altos que las mujeres. El tipo de resultado que 
esperamos obtener es que los padres altos tienden a tener 
hijos altos y los padres bajos, hijos de menor estatura, y 
que la talla de los hijos de padres de una estatura deter- 
minada presentará una cierta variación aleatoria, con ten- 
dencia a estar ligeramente más cerca de la estatura media 
que sus padres. Todo eso lo podemos expresar así: 


y = a+ bx + variación aleatoria 


y esperamos tomar suficientes pares de mediciones para 
poder identificar los valores de a y b con suficiente 
confianza. 

Además de hallar los valores numéricos de a y b tra- 
zaremos un diagrama de dispersión y dibujaremos en él 
la recta y=a+bx. 


1JQ REM x es máx., th €s min., v es valor 
20 DIM x(2) 

30 DIH n(2) 

30 DIM v(2) 

s0 IMPUT “Titulo ”";ts 

60 PRINT 35 

70 FOR i=1 TO 2 


80 IMPUT "Minimo valor de "j¿j"xy"(i)3 "2 “5 
nfi), "Háximo valor de "“5"xy"”"(1)5 
“3 *3x(1) 

90 IF x(1) > n(1) THEM GOTO 120 

100 PRINT "El máximo deber ser mayor" 
e que el minimo” 


110 GOTO 80 
120 NEXT i 
130 PRINT "Ahora teclee los datos con dos” 


190 PRINT * números separados por comas" 
150 PRINT * y entre comillas, ejemplo” 
160  PRINT 

170 PRINT ” *"2,47,15.438""”" 


180 PRINT 
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190 
200 
210 
220 


230 
2490 
250 
260 
270 


280 
290 


300 
310 


320 
330 
3340 


"350 


360 
370 
380 
390 


400 
310 
3420 
430 
500 
510 
520 
530 
5340 
600 
é6l0 
620 
630 
630 
650 


660 
670 
200 


710 
720 


730 
740 
750 
7ó60 
800 


PRIMT "Teclee 
PRINT * 
REN verifica 
LET 5x=0: LET 
LET sxy=0:; 
INPUT ds 
FOR i=1 TO LEN 
1IF.d$(1) =-",” 
IF d$(i) = * S 
1F i>2 THEN IF 
THEM GOTO 5 
NEXT 4 


INPUT *Su dato 


"coma O STOP 


GOTO 240 
REM para el 
una coma 
LET v(1) = VAL 
LET v(2) = VAL 
LET sx = sx + 
LET sxx = s 
LET sy = 
LET sxy = 
LET n= nm + 1 
IF n=1 THEN CL 
FOR i=1 TO 2 
IF v(i) < n(1) 
THEN GOTO 2 
LET v(i) = (v( 
NEXT ii 
PLOT v(1)%255, 
GOTO 230 
REM aqui si 
IF r=0 THEN ST 
LET b = (sxy - 
LET a = sy/nm - 
PRINT AT 1,05 
REM dibujo d 
LET x1 = n(1): 
LEFT OZ = xt) 
IF yl > x(62) T 
IF y1 >= n(2) 
REM aqui si 
inferior 
LET y1 = n(2) 
GOTO 2720 
REM aqui si 
superior 
LET y1 = x(2) 
REM aqui si 
izquierdo 


sy + 


REM finaliza 
IF b=0 THEM GO 
LET x1 = (yl-a 


IF x1 < n(1) O 
REM la recta 


para terminar. 
los datos y 
LET sxx=0: 


STOP (entre 


sy=0: 
LET n=0 


ds 
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comillas)” 


los va sumando 


THEN GOTO 310 


TOP * 
ds 
00 


(1-2 TO 


deberla 
"3d 


caso de que 


d$( TO 1-1 
dx(i+1 TO 
v(1): 
xx + víl)Xv 
v(2); 


S: PRINT tx 
OR v(i) 

30 
i)-n(ti)) / 


v(2)*151 


tin de 
OP: REM no 
Sx*sy/n) / 
b X sx/n 
y = ¿e 


"jaj 


e la recta con 


LET yl = a 
LET y2= a 
HEN 
THEN 


debe empezar 


no empíeza en 


si 

TO 999; REM 
)1/b 

RL. Y eL.) 


empieza en 


incluir 


no entra er 


THEN GOTO 500 


1) = "STOP? 


o una”, 


el fésimo sea 


) 
) 


(1) 


sxy + V(l1)Xv(2) 


> x(i) 


(x(i)-n(1)3) 


los datos 
hay 


más datos 


(sxx - sx*sx/n) 


+ "“pbjex* 


esta ecuación 
+t+bXoxoxl 
tb x2 


GOTO >?00 
GOTO 300 
debe empezar 


en el margen 


en el margen 


el margen 


pantalla 
horizontal 


THEN GOTO 999 
(x1,y1) 
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810 IF y-2 > x(2) THEN LET y2=x(2):; GOUTO 8490 
820 IF y-2 >= n1(2) THEN GOTO 900 
830 LET y2 = n12) 


3840 REM aqui si termina abajo O arriba 

850 REM ahora sabemos que está en pantalla 
860 LET x2 = (y2-a) / b 

900 REM aqui una vez hallados puntos 


inicial y final 
910 LET v(J1) = 255 / (x(1)-n(1)) 


920 LET viz2) = 1351 2 (x(2)=nt2)) 
930 PLOT (x1-nm(1)) % v(1), (yl1-n(2)) %X v(2) 
940 DRAW 1(x2-x1) %* v(1), (y2-y1) X v(2) 


En el caso del ZX81 hay que convertir los comandos 
INPUT de las líneas 80 y 290 para usar PRINT para los 
títulos, de manera análoga al programa del capítulo 7; res- 
tringiéndolos a las tres primeras líneas de la pantalla no 
afectarán para nada al diagrama de dispersión. Las líneas 
que contienen varios comandos es preciso desdoblarlas; 
la línea 340, por ejemplo, quedará reemplazada por 


390 LET sx = sx + v(1) 
3345 LET sxx = sxx + v(l)%Xv(1) 


Sin embargo, no es necesario sustituir la línea 810 por 


810 TF y2 > x1(2) THEN LET y2=x 12) 
815 GOTO 8490 


porque eso obligaría siempre a ir (GOTO) a la línea 840, 
aun en el caso de que y2 no fuese mayor que x(2). De 
hecho, la tarea que cumplen las líneas 800 y 860 es exac- 
tamente la misma que cumplen las líneas 630 a 760, salvo 
que los tests de las líneas 740 y 760 no se necesitan la se- 
gunda vez. Las líneas 630 a 760 fueron escritas de una ma- 
nera que es compatible con el ZX81; las líneas 800 a 860, 
de una manera que es más conveniente para el Spectrum. 
Por consiguiente, en el caso del ZX81 no tenemos más 
que sustituir las líneas 810 a 830 por una copia de las lí- 
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neas 630 a 710, cambiando convenientemente el número 
de las líneas y sustituyendo y1 por y2. Y recíprocamen- 
te: en el Spectrum podemos conseguir un programa más 
elegante sustituyendo las líneas 630 a 710 por una copia 
análogamente modificada de las líneas 810 a 830. 

(El lector debe asegurarse de que entiende bien por qué 
las pruebas se necesitan una sola vez: en primer lugar ave- 
riguamos por dónde entra en la pantalla la recta, que es- 
tamos trazando de izquierda a derecha: por arriba, por 
abajo o por el lado izquierdo; luego hallamos por dónde 
sale. Las pruebas de las líneas 740 y 760 detectan los ca- 
sos en los que la línea no llega a entrar en la pantalla; si 
ha entrado en la pantalla tendrá por fuerza que volver a 
salir de ella, y si estamos trazándola de izquierda a dere- 
cha tendrá que salir por arriba, por abajo o por el lado 
derecho.) 

Los multiplicadores 255 y 151 en la línea 420 y en las 
líneas 910 y 920 hay que sustituirlos por 63 y 37 en el 
ZX81, y sustituir también el comando DRAW de la lí- 
nea 940 por la rutina para trazar rectas que aparece en el 
ejercicio 6 del capítulo 18 del manual del ZX81. 

La palabra STOP en la línea 260 es el término simbó- 
lico STOP que da la tecla A cambiada (cambio de sím- 
bolos en el caso del Spectrum, que solamente tiene dos 
teclas de cambio); pero en la línea 270 se trata de las le- 
tras S, T, O, P. Hacemos la comprobación para ambas 
porque resulta más fácil y también más útil que explicar 
con detalle al usuario que hay que utilizar la una o la otra. 
(Obsérvese, de paso, que cualquiera de ellas sirve en el 
programa del capítulo 7: una de ellas da el código D, la 
otra el código 2.) Sería conveniente ampliar el programa 
con el fin de comprobar la entrada de datos más a fondo, 
cerciorándose de que las subcadenas antes y después de 
la coma son números válidos (consistentes sólo en dígi- 
tos, punto, letra E y espacios de cabeza y de cola) antes 
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de aplicar VAL, de modo que el usuario obtenga un error 
útil de mensaje y una oportunidad de volver a teclear, en 
lugar de ver cómo se aborta el programa con el código 
C. Otra ampliación que serviría de ayuda al usuario sería 
presentar visualmente las últimas coordenadas x e y, así 
como el número de pares que van hasta ese momento, en 
las líneas segunda y tercera de la pantalla, por ejemplo así: 


375 PRINT AT 1,03 "Punto número “5rij 
* fue”, víl),v12), 


La coma al final del comando PRINT cuida de que se 
borre el mensaje anterior. Supongamos que el quinto va- 
lor y es 12.7863 y el sexto 103; si no estuviese la coma, 
el sexto valor de y aparecería como 1037863 (siendo 103 
el verdadero valor y 7863 el residuo de la vez anterior). 
La línea 540 necesita borrar el último mensaje impreso 
por la línea 375. Como no sabemos la longitud que ten- 
drán los dos números, no podemos estar seguros de cuán- 
tas comas se necesitarán para limpiar el resto de la zona 
sin borrar nada del diagrama de dispersión; por eso es 
mejor limpiar primero el área con 


535 PRINT AT 1,0,,,, 


que limpia dos líneas como es menester. 

El ZX BASIC limita el nombre de las matrices a un 
solo carácter (otra de las reminiscencias del ZX80). Por 
eso no podemos llamar a los valores máximo y mínimo 
max y min (véanse las líneas 10 a 30) y es preciso redu- 
cirlos a las letras x y mn, de menor valor nemotécnico. Es 
perfectamente lícito objetar que x no debería utilizarse 
como x(1) y x(2), que pueden confundirse con el x1 y x2 
utilizados para la coordinada horizontal; el máximo qui- 
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zá debería llamarse m. Y seguramente deberíamos inten- 
tar hacer las cosas un poco más legibles añadiendo 


45 LET x=1: LET y=2 


y hablar de m(x), m(y), n(x), n(y), v(x) y v(y) en lugar 
de utilizar números literales para los subíndices. Y en- 
tonces también tendríamos que cambiar las líneas 70 y 
380 por 


FOR i=x TO y STEP y-x 


para aclarar un poco más qué es lo que están haciendo 
los bucles. 


Correlación 


La recta trazada por el programa anterior recibe el 
nombre de recta de regresión. El programa proporciona 
una manera objetiva de hallar esa recta, así como una eva- 
luación subjetiva (echando un vistazo a la imagen) de cuál 
es el grado de aproximación de los resultados experimen- 
tales a ese recta. Pero existe una cantidad, llamada el coe- 
ficiente de correlación, que podemos calcular y que da 
una medida objetiva de la bondad de ese ajuste. 

Si todos los puntos yacen exactamente sobre la recta 
de regresión, el coeficiente de correlación es +1 si la rec- 
ta sube de izquierda a derecha, y —1 si desciende de iz- 
quierda a derecha. Para cualquier recta de regresión dada, 
a medida que los puntos se alejan de la recta el coeficien- 
te de correlación se aproxima a cero. Si la pendiente de 
la recta de regresión disminuye mientras los puntos man- 
tienen su distancia a ella, el coeficiente de correlación 
tiende también a cero. 
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Asi pues, si el coeficiente de correlación es +1 ó —1 
podemos predecir exactamente el valor de y, siempre que 
conozcamos exactamente el valor de x. Si el coeficiente 
de correlación es cero, quiere decirse que x no tiene nin- 
guna influencia sobre y: el conocimiento de x no nos per- 
mite predecir y con un grado de exactitud mayor que si 
no conociésemos x. Las siguientes líneas, añadidas al 
programa anterior, permiten calcular también el coefi- 
ciente de correlación. 


225 LET syy=0 
355 LET syy = syy + v(2)Xv1Z2) 


550 PRINT "coeficiente corr. *"j (sxy - sxX*sy/n)/ 
SOR ((5xx -— 5x%XS5x/n) X (sxy - syXksy/rn)) 


Qué valores del coeficiente de correlación se puede 
considerar que indican una relación estrecha entre x e y 
es algo que depende de las circunstancias; pero como guía 
aproximada diremos que para coeficientes de correlación 


ZX Spectrum: Manual del programador 167 


de hasta 0,85 sigue existiendo una componente sustancial 
de azar en y, como se comprobará ejecutando el progra- 
ma; el lector puede utilizar datos reales, datos que se in- 
vente él mismo o datos generados por el ordenador (uti- 
lizando RND), como en los programas incluidos al final 


del capítulo 7. 


Capítulo 9 
Contabilidad 


Uno de los inconvenientes que tiene la mayoría de las 
calculadoras de bolsillo es que no queda constancia algu- 
na de los núnicros que se teclean. La persona que está su- 
mando una columna de cifras de una factura, pongamos 
por caso, suele mirar sobre todo al impreso de la factura 
y al teclado, y es muy fácil olvidarse de echar un vistazo 
a la pantalla durante el brevísimo tiempo que permanece 
visible en ella cada número (el tiempo que pasa entre te- 
clear el último dígito y dar a la tecla “+>”) con el fin de 
comprobar que se ha tecleado correctamente. 

Los programas de los ordenadores personales son en 
cambio capaces de recordar todos los números que se han 
tecleado (almacenándolos en una matriz) y de presentar- 
los visualmente en pantalla para poder cotejarlos con los * 
datos originales. Si además se presentan en una columna 
de formato similar al original, entonces la tarea de com- 
probarlos resulta sumamente sencilla. 

Por desgracia, con el BASIC no es demasiado fácil pre- 
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sentar las cifras debidamente alineadas en columnas. El si- 
guiente programa (para el ZX81) muestra más o menos 
lo que hay que hacer. 


10 DIM p(201) 
20 PRINT AT 10,05 "Teclee los precios que van" 


30 PRINT * a ser sumados; utilice un cero” 
30 PRINT ” para terminar la lista" 

50 FOR i=1 TO 200 

S0 INPUT p(i) 

7QO  LET pí(i) = INT (p(i)X*100 + 0.5) / 100 

80 IF p(i)=0 THEN GOTO 120 

90 NEXT i 


1006 SCROLL 

110 PRINT "No hay espacio para más números" 

120 SCROLL 

130 PRINMT "Ahora comprueba los precios" 

140 FOR 1=20 TO 200 STEP 20 

3150 FOR j¡*8i-19 TO 4 

150 IF píli)=0 THEM GOTO 200 

170 SCROLL 

180 LET n% = STR (p(íj)X100) 

190 PRINT jj AT 21,29-LEN n$%5 ns( TO LEN nx - 2)53 
*."3 (*0*+n%$) (LEN n$ TO LEN n% + 1) 

200 NEXT j 

210 SCROLL 

220: ¡PPRINT "Está correcto? 1*S%* o "*Nnr*)j. 

230 INPUT rs 

240 IF r$="S" THEN GOTO 360 

250 IF r$<>"N" THEN GOTO 230 

260 PRINT AT 21,0; "Error en llnea número?” 

270 IMPUT j 

280 IF ¡<=i AND j>i-20 THEN GOTO 310 

290 PRIHT AT 20,0; "La linea "jjf" no existe" 

300 GOTO 150 

310 SCROLL 

320 PRINT “Valor correcto?" 

330 INPUT p(j) 

330 LET p(j) = INT (píj)X100 + 0.5) Y 100 

350 GOTO 150 

360 1F ptijl £>.0 THEM MEXT 1 

370 REM aqui cuando todo está comprobado 

380 LET sum=0 

390 FOR i=1 TO 200 

400 LET sum=0 

3410  MEXT ii 

3420 SCROLL 

330 LET rn$ = STR$ (sumX*100) 

3430 PRINT "Total”"3j AT 21,29-LEN n$3 n$( TO LEN n% 
E TIT MU LEMOA AILEN AR TO LEN 5% + 113 


Las líneas 180 y 190, y también las líneas 430 y 440, 
imprimen el valor de p(¡) correctamente alineado, supo- 
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niendo que está ya redondeado a dos cifras decimales (que 
es lo que hace la linea 70 ó la 340); suponemos que p(7) 
está en libras esterlinas (o en dólares, francos, marcos, pe- 
setas, etc.) de manera que los decimales son peniques (o 
centavos, centimes, pfennigs, céntimos, etc.). 

El único cambio que habría que hacer para el Spectrum 
sería eliminar las instrucciones SCROLL. Los comandos 
PRINT en las líneas 220, 260 y 320 podrían sustituirse 
por letreros en los comandos INPUT que siguen en cada 
caso. 

Hay multitud de ocasiones en que, en las facturas, el 
precio de cada artículo se descompone en neto + impues- 
tos, desglosando a su vez el importe neto en cantidad X 
coste unitario. El siguiente programa (escrito para el Spec- 
trum) comprueba las cifras de una factura (enviada, por 
ejemplo, por un proveedor), en la que ya se han realiza- 

“do las operaciones aritméticas. Para no complicar las co- 


sas, suponemos que todos los artículos tienen un impues- 
to del 15%. 


10 LET sumtotal=0 
15 LET netosum=0:; LET tasasum=0 


20 CLS 

30 IMPUT "Cantidad (o cero si no hay", 
“más datos): "jcactd 

40 IF ctd=0 THEN GOTO 500 

so INPUT "Cantidad: "j (ctd), "Pr.uridad: *”; 
precio, "Neto: "j neto, "Impuesto; "j tasa, 
"Importe bruto: *; bruto 


60 IF ABS (ctdXprecio - neto) < 0.O1l 
THEN GOTO 110 
70  PRINT "El precio neto no concuerda.” 
sa PRIMT ctdj3" x "jprecioj" = "¿¡ctdX*precio 
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90 
100 
110 


120 
130 
140 
150 
160 


170 
180 
190 
200 
210 
220 
230 
500 
510 


520 


530 
590 


550 
560 
570 
580 
-590 


$00 
6l0 
620 
£30 
6490 


650 
660 
670 
1210) 
£90 
700 
710 
720 
730 


PRINT "y se ha dado como "jneto 
BEEP 0.5,47: GOTO 30 
IF ABS (neto*0.15 - tasa)<0.O1 
THEN GOTO 160 
PRINT "El impuesto no concuerda. " 
PRINT "El 15% de "j¿jnetoj" es "j¡netoXx*0.15 
PRINT "y se ha dado como "jtasa 
BEEP 0.5,47: GOTO 30 
IF ABS (neto+ttasa-bruto)<0.Ot 
THEN GOTO 210 
PRINT "El precio bruto no concuerda.” 
PRINT neto” + "jtasaj”" = "jnetotltasa 
PRINT."y se ha dado como "¿bruto 
REEP 0.5,37: GOTO 30 
LET netosum = netosum + neto 
LET tasasum = tasasum + tasa 
GOTO 20 
REM aquí cuando finaliza 
INPUT "Total neto ( cero si la suma no 
se hizo):*",neto 
INPUT "Total impuestos (cero si no han sido 
sumados):;",tasa 
INPUT "Total factura: *, bruto 
IF neto=0 THEN PRINT *Total neto "j¡netosum: 
GOTO 390 
IF ABS (neto-netosum) < 0,001 THEN GOTO 5%0 
PRINT "El neto total no concuerda. * 
PRINT "Calculado: "jnetosum 


PRINT "Tecleado : "jneto 
IF tasa=0 THEN PRINMNT “Total impuestos *“jtasasulm:; 
GATO ¿490 ] 


IF ABS (tassa-tasasum) 0.001 THEN GOTO 640 

PRINT "El impuesto total no concuerda.” 

PRINT "Calculado: "jtasasum 

PRINT “*Tecleado : "jtasa 

IF ABS (retosum+ttasasum-bruto) < 0.001 
THEM GOTO 690 

PRINT "El total factura no concuerda." 

PRINT "Calculado: "jnetosumttasasula 

PRINT "Tecleado : “¿bruto 

INPUT "Total correcto; “j¿jbruto 

LET sumtotal = sumtotal + bruto 

TMPUT "Más facturas? (S/M)"jrs 

IF rs$="S" OR r$="s5" THEM GOTO 200 

IF r$<>*"NM" AND rs$<>"n" THEN GOTO 700 

PRINT ,,,,"*"Total de todas estas facturas”, 
sumtotal 


El principal cambio que es necesario hacer para pasar 
el programa en el ZX81 es separar los títulos de los co- 
mandos INPUT y colocarlos en comandos PRINT como 
en el primer programa de este capítulo. Es necesario, asi- 
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mismo, eliminar los comandos BEEP y pensar en otras 
formas de atraer la atención del operador, como, por 
ejemplo, hacer que parpadee la pantalla. 

Al usuario se le pide que teclee las cinco cifras de cada 
artículo, y el programa comprueba que el precio neto, el 
impuesto y el precio bruto han sido calculados correcta- 
mente. Los dos primeros sólo tienen que ser correctos al 
penique (o céntimo, etc.), porque puede ser que el ver- 
dadero valor haya sido redondeado hacia arriba o hacia 
abajo hasta un número entero de centésimas; los valores 
dados para el precio neto y para el impuesto deben su- 
mar exactamente el precio bruto, pero tenemos que pre- 
ver posibles errores de redondeo en el ordenador, por lo 
cual sólo se hace hincapié en que sea correcto hasta la dé- 
cima de penique (o céntimo, etc.). 

Si cualquiera de las cantidades de un artículo está mal, 
el usuario tendrá que volver a teclear todo el artículo. 
¿Cómo habría que modificar el programa para que sola- 
mente hubiese que teclear las cifras incorrectas? Recuér- 
dese que cuando el ordenador comprueba que tres cifras 
son inconsistentes, no sabe cuál de las tres está mal. Al 
hallar un error, el programa no busca otros posibles erro- 
res, sino que inmediatamente pide que se corrija el artí- 
culo correspondiente. Y es así porque la corrección pro- 
bablemente afecte al resultado de las restantes compro- 
baciones: si el neto no cuadra con cantidad X precio, pue- 
de muy bien ser que se haya cometido un error al teclear 
el neto y en ese caso fallarán también las otras dos com- 
probaciones, o bien puede ser que se haya calculado mal 
de entrada el neto y que haya que recalcular ahora las ci- 
fras de impuesto y bruto. 

El programa exige introducir a través del teclado todas 
las cifras, en lugar de pedir únicamente la cantidad y el 
precio unitario y calcular las demás. Hay dos razones 
para hacerlo así; una de ellas es que para neto e impuesto 
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se utilizan las cifras reales, que pueden diferir hasta en 
un penique de las cifras calculadas y, por tanto (si hay 
muchos artículos) llega a acumular una diferencia nota- 
ble en el total. La otra razón es que sería muy fácil que 
el usuario pasara por alto una discrepancia entre las ci- 
fras presentadas en la pantalla y las registradas en el im- 
preso de factura, por lo cual es mejor que la compara- 
ción la efectúe el ordenador. En esas circunstancias no 
hay necesidad de comprobar las entradas como se hizo 
en el primer programa de este capítulo, porque las cifras 
se comprueban unas con otras de forma cruzada. 
Si sustituimos la línea 150 por 


145 IMPUT “Impuestos correctos? (S/N)“jrs 
150 IF rs$="N" OR r$="n" THEN GOTO 30 
155 IF rs>"S" AND r$<>"s" THEN GOTO 1495 


el programa servirá para artículos con tipos de impuesto 
distintos del 15%. Piénsese cómo habría que modificar 
el programa para que sistemáticamente pida al usuario in- 
troducir la tasa porcentual de impuesto, o bien (insertan- 
do algunas instrucciones entre las líneas 110 y 120) para 
que solamente solicite la tasa de impuesto cuando las ci- 
fras de entrada no sean concordantes con una tasa del 
15%. Estúdiese también la manera de modificarlo para 
que haga un descuento sobre el precio neto, de modo que 
el neto se compare no con 


ctd * precio 
sino con 


ctd * precio * (100-descuento) / 100 


Otra posibilidad es introducir en la línea 100 una mo- 
dificación similar a la descrita para la línea 150, a fin de 
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hacer que el programa comunique el descuento (o recar- 
go) porcentual que parece haberse aplicado y preguntar 
si es correcto. Si neto fuese menor que ctd X precio, el 
descuento se calcularía en la forma 


100 *% (1 - neto / (ctd % precio)) 


en caso contrario, el recargo se calcularía así: 


100 % (neto / (ctd * precio) - 1) 


Cabría escribir el programa de manera que descarte 
aquellos casos en que el tipo de descuento o de recargo 
es a todas luces absurdo; pero no sería nada fácil adoptar 
un criterio apropiado para decidir qué es «absurdo»; así, 
los ajustes que experimentan los precios de ciertos pro- 
ductos acabados como consecuencia de los cambios de 
precio de ciertos metales pueden ser muy grandes, por lo 
cual probablemente sea mejor dejar que sea el propio 
usuario quien decida qué parece y qué no parece ra- 
zonable. 

La segunda parte del programa comprueba los totales 
registrados en la factura; prevé la posibilidad de que la 
factura original no recoja los totales individuales del neto 
y de los impuestos, y los presenta en pantalla en el caso 
de que se necesiten a efectos de la declaración. Asimis- 
mo, va archivando un total general de todas las facturas; 
y no sería difícil modificarlo para que lleve registros in- 
dependientes de los totales de neto e ¿mpuestos. 


Impuesto sobre la renta 


Otro tipo de cálculos, al menos en el Reino Unido, es 
el que comporta el sistema denominado PAYE (acróni- 
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mo de «pay as you earn» O «pague a medida que cobra»), 
que es un sistema para que el patrono deduzca los im- 
puestos en el momento de pagar el sueldo. Aun aquellos 
lectores que no están directamente interesados en el sis- 
tema PAYE encontrarán instructivo el programa, como 
un ejemplo del tipo de procesamiento de datos que a me- 
nudo es necesario realizar en un entorno comercial. 

Cada semana se calculan los ingresos totales percibi- 
dos desde el comienzo del año fiscal y se deduce de ellos 
el «mínimo exento» (es decir, el monto de ingresos que 
puede percibir el empleado sin tener que pagar ningún 
impuesto). El resto, los «ingresos imponibles», se lleva 
luego a la Escala de Gravamen (que el Ministerio de Ha- 
cienda proporciona a todos los empresarios) para calcu- 
lar qué cantidad de impuestos se deberían haber pagado 
desde el comienzo del año fiscal; luego se resta la canti- 
dad pagada la semana anterior con el fin de hallar lo que 
hay que pagar la presente semana. Esta cantidad se de- 
duce del sueldo del empleado y se remite a Hacienda. 

El siguiente programa realiza la mayor parte de las ope- 
raciones aritméticas que hacen falta; al igual que el ejem- 
plo anterior, está escrito para el Spectrum; los únicos 
cambios que hay que hacer para el ZX81 consisten en 
convertir los rótulos de los comandos INPUT en coman- 
dos PRINT e insertar un comando CLS delante de la lí- 
nea 200. Tampoco es difícil adaptar el programa al caso 
de que las pagas sean mensuales; basta con sustituir «se- 
mana» por «mes» en todo él. 


10 LET total tasas = O; 


LET total sueldos = O 
100 IMPUT "Sueldo de la semana: "“j sueldo, 
"Sueldo total anterior: "j anterior, 
"Sueldo total exento: ”*j exento, 
"Impuestos pagados: “j pugado 
150 LET acumulado = anterior + sueldo 


200 PRINT ” anterior esta semana" 
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210 PRINT 

220 PRINT "semanal”"j TAB 22; sueldo 

230 PRINT "sueldo total *j anterior;jTAB 22; 
acumulado 

240 PRINT "exento"; TAB 22; exento 

250 PRINMNT “tributable"j TAB 22; 


acumulado - exento 
260 IMPUT "total impuestos: "j impuesto total 
270 LET impuesto = impuesto total - pagado 
280 PRINT "Impuestos "j pagadoj TAB 22; 


impuesto total 
290 PRINT "Impuesto de la semana"; TAB 22; impuesto 
300 PRINT 


310 PRINT “Sueldo neto”j TAB 22; sueldo -— impuesto 
9400 PRINT 

SO ¡PRENT. “e -== == a e e e di e o e " 

420 PRINT 

s00 REM suma global de los sueldos y los 

510 REM impuestos de todos los empleados 

520 LET total tasas = total tasas + ¡impuesto 


530 LET total sueldos =total sueldos + sueldo - 
impuesto 

590 INPUT * Algún empleado más? (S/N) "j rs 

550 IF r$="S” OR r$="s" THEN GOTO 100 

560 IF rs$="MN" AND rs<>*n" THEM GOTO 590 

600 PRIMT "Total a pagar a los empleados” 

610 PRINT * esta semana; "3 total sueldos 

620 PRINT "Ingreso para Hacienda "jtotal tasas 


A la vista de la Tabla de Deducciones el usuario intro- 
duce a través del teclado las cifras correspondientes a los 
ingresos totales y a los impuestos totales de la semana an- 
terior, así como también el sueldo de la semana actual y 
el «mínimo total exento», consultado en las tablas de gra- 
vamen en la entrada correspondiente al código fiscal del 
empleado. El ordenador calcula la nueva cifra de «ingre- 
sos totales imponibles»; el usuario tiene entonces que lle- 
var esta cantidad a las tablas de gravamen para hallar la 
nueva cifra del «total de impuestos a pagar»; a partir de 
ahí el ordenador puede calcular todas las demás cifras. 

La presentación visual en pantalla (generada por las lí- 
neas 200 a 290) muestra las cifras que hay que introducir 
o confrontar con la Tarjeta de Deducciones, en el orden 
en que aparecen en dicha Tarjeta. El método utilizado en 
el primer programa del presente capítulo (líneas 430 a 
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440) generaría una presentación mejor, en la cual las ci- 
fras están correctamente alineadas, con los puntos deci- 
males unos debajo de otros, y con dos cifras decimales 
en la columna «peniques». Obsérvese que ello entraña 
que todas las cifras sean un número exacto de peniques; 
lo ideal sería retenerlas como peniques y no como libras, 
a fin de evitar errores de redondeo en los cálculos. (El or- 
denador es capaz de retener exactamente números ente- 
ros no superiores a 4.000.000.000 más o menos, pero no 
puede retener exactamente números enteros expresados 
en forma de fracciones decimales. Si los ingresos anuales 
del lector son superiores a los 40 millones de libras es- 
terlinas, lo más probable es que disponga de un ordena- 
dor más grande para hacerle la nómina.) Por ejemplo: 


2ó5 LET impuesto total = 
INT (impuesto total X 100 + 0.5) 
273 LET m$ = STR$ pagado: LET n$ = STRS$ 
impuesto total 
275 IF LEN má = 1 THEM LET m$ = *O"+m3s 
277 IF LEN n$* = 1 THEN LET n$% = *"O"+n 
280 PRIMNT "impuestos”j TAB 21 - LEN m$; 
me*(TO LEN m$-2)5"."jms$(LEN ms - 1 TO LEN m3$);5 
TAB 30-LEN n$;5 ns(TO LEN né-2);*"."j 
ns(LEN nt - 1 TO LEN ri) 


La versión del programa que damos a continuación uti- 
liza una subrutina (en la línea 1000) para imprimir los nú- 
meros correctamente alineados. 

Si de una semana para otra almacenamos en casete los 
diversos totales de cada empleado, entonces no hará falta 
que el usuario se preocupe de introducir esas cifras. La 
estructura general del programa es 


(1) crear las matrices; 

(2) ejecutar el procesamiento de una semana; 

(3) salvarlo en cinta; 

(4) si se recarga a partir de una cinta, repetir desde 2. 


178 John y Catherine Grant 


El programa presentado a continuación incluye tam- 
bién las prestaciones a la Seguridad Social; la contribu- 
ción de cada semana se basa en el sueldo de dicha sema- 
na, que se mira en otra de las escalas de gravamen. A di- 
ferencia de la versión dada anteriormente, el programa 
que sigue resuelve correctamente el caso en que los in- 
gresos totales del empleado sean menores que el mínimo 
exento. 


10 INPUT "Mámero máximo de empleados *j n 

20 DIM n$(n,20): REM nombre de cada empleado 
30 DIM pIn): REN sueldo total actualizado 

30 DIM tín): REN impuesto total actualizado 
SO LET i=1: GOSUB 2000 

80 LET total tasas = O; LET suma ss = O 

90 LET total sueldos = O 


100 PRINT "Hombre: "jn*(i) 

110 INPUT "Sueldo de la semana: *"jsueldo, 
"Sueldo total exento: "j exento, 
"Total a Seguridad Social: "j tss 


"Pago del empleado para SS: "j ess 
120 LET sueldo = INT (sueldo X* 100 + 0,5) 
130 LET exento = INT (exento * 100 + 0.5) 
190 LET tss = INT (tss % 100 + 0.5) 
150 LET ess = INT (ess *X 100 + 0.5) 
160 LET acumulado = p(i) + sueldo 
170 LET tributable = acumulado - exento 
180 IF tributable < O THEN LET tributable = O 
200 PRINT TAB 1135 "anterior esta semana" 
210 PRINT 
220 PRINT *SS total”; 
2259 LET v$% = STR% tss; GOSUB 1000 
230 PRINT ”SS empleado”5 
235 "LET v%$ = STR*$ ess; GOSUB 1000 
230 PRINT "sueldo Ssemanal”")j3 
295 LET vs% = STR*$ sueldo: GOSUB 1000 
250 PRINT *total”3 
253 LET vé = STR$ p(i): GOSUB 1100 
256 LET vs = SRT*% acumulado: GOSUB 1000 
260 PRINT "exento”"j 
265 LET v$= STR*e exento: GOSUB 1000 
270 PRINT "triíbutable”"; 
275 LET v% = STR$% (tributable): GOSUB 1000 


280 IMPUT "Impuestos a pagar: "*"j impuesto total 
285 LET impuesto total=INT(impuesto totalX*100 + 0.5) 
290 LET impuesto = impuesto total - t(i) 


300 FRINT "imp. total”; 

303 LET vs = STR$ t(i):; GOSUB 1100 

3064 LET v$ = STR%$ impuesto total: GOSUB 1000 
310 PRINT "impuestos de la semana”; 

315 LET v%$ = STR$ impuesto; GOSUB 1000 
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320 PRINT 
330 PRINMNT "sueldo neto”; 


335 LET vs = STR$ (sueldo - impuesto - ess): GUSUB 1000 
400 PRINT 


e " 

420 PRINT 

430 REM comprobar sí son correctos los datos anteriores 

4340 INPUT "Datos correctos? (S/N) "¿rs 

350 IF rs="1N" OR r$="n" THEN GOTO 100 

460 IF r$<>*"S" AND rs$x>*"s” THEH GOTO 4490 

370 LET p(i) = acumulado: LET t(1) = impuesto total 

3480 LET total tasas = total tasas + impuesto 

485 LET Suma SS = suma Ss + tes 

490 LET total sueldos = total sueldos + sueldo - 
impuesto - ess 

900. ¿LETS io dl 

510 IF 1 <= n THEN 1F n3$%(14,1) <> ”» ”" THEN GOTO 100 


540 INPUT "Hay más empleados? (S/N) "jrs 

550 IF rse="S" OR r$="s" THEN GOSUB 2000: GOTO 100 
560 IF rse<>"N"” AND r$<>"n" THEN GOTO 5390 

600 PRINT "Suma total de sueldos” 

$10 PRINT * esta semana”"j 

620 LET v$ = STR*$ total sueldos: GOSUB 1000 

630 PRINT 

$90 PRINT "Ingresos para Hacienda: " 

650 LET v$ = STR% total tasas: GOSUB 1000 


60 —PRINT ” Para S. Socíial:"”"" 
670 LET v$ = STR$ suma ss: GOSUB 1000 
680 FPRINT * Total" 


690 LET vs = STR$ (total tasas + suma 55): 
GOSUB 1000 
700 INPUT "Ahora rebobine la cinta de casete”, 
“póngala a grabar y pulse ENTER."jr 
710 SAVE "NOMIMA"” LINE 760 
720 PRINT "Rebobine y ponga en marcha la cinta” 
730 VERIFY “MOHINA"” 
7390 PRINT "Grabación correcta del programa" 
750 GOTO 799 
760 LET i=1; REM aquí empezará cuando se vuelva 
a cargar el programa 
770 GOTO 80 
799 GOTO 92999; REM terminación del programa 
1000 REM escibe el número de la varíable v$ 
alineado a la derecha de la pantalla 
con GOSUB 1200 
1010 LET tab = 30 
1020 GOSUB 1200 
1030 PRINT 
1040 RETURN ; 
1100 REM escribe el número de vs en el centro 
de la pantalla 
1110 LET tab = 21 
1200 REM convierte el número de peniques de vs+ en 
libras y peniques, con el último digito 
en la columna 
1202 REM dada por la variable TAB 
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1210 IF LEN vs = 1 THEN LET vs = "0" + vs 

1220 IF vs(1) = “-* THEN 1F LEN vs = 2 THEN LET vs = 
sa” + v$e(2) 

1230 PRINT TAB tab-LEN v%j vs$( TO LEN v$% - 2); 

l ". "vs (LEN vs - 1 TO LEN v%);5 

1240 RETURM : 


2000 REM Entrada del nombre de cada empleado 
2010 INPUT "Nombre del empleado: "j nms$(i) 
2020 IF n$(1,1) <> ” ” THEN RETURN 
2030 INPUT "El nombre no debe empezar", 
“con espacio. Mombre del empleado: "jn$(i) 


2040 GOTA 2020 


Para el ZX81 habría que hacer los cambios usuales de 
desdoblar las líneas que contengan más de una instruc- 
ción y de separar los rótulos, etc. de los comandos IN- 
PUT y colocarlos en comandos PRINT independientes. 
Las líneas 720 a 750 es preciso omitirlas porque el ZX81 
no posee la función VERIFY, y el texto «LINE 760» hay 
que suprimirlo de la línea 710 porque el programa co- 
menzará automáticamente en ese punto al recargarlo; 
también empezará en ese punto después de salvarlo, de 
modo que el usuario tendrá que abortarlo con STOP (o 
desconectando el ordenador). El contenido de la línea 700 
se pasa por alto; es sólo un modo conveniente de hacer 
esperar al ordenador hasta que el usuario tenga prepara- 
da la cinta. 

Merece la pena subrayar que la versión para el Spec- 
trum comprueba que los nuevos datos han sido almace- 
nados correctamente en la cinta, mientras que eso no es 
posible en el ZX81. A menos que dispongamos de un se- 
gundo ZX81 para cargarla (LOAD), no podremos dar- 
nos cuenta de que la cinta no carga (LOAD) hasta que 
los datos han sido evacuados ya de la memoria del orde- 
nador. Es más seguro salvar (SAVE) los datos una segun- 
da vez (utilizando GOTO 700) y escuchar ambas copias 
en la cinta para comprobar que hacen los ruidos que de- 
ben hacer, antes de borrar los datos del ordenador; pero 
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ni siquiera eso es garantía de que la vez siguiente vaya a 
cargar como debe. 

El programa admite algunas otras mejoras. Por ejem- 
plo, si el monto total de los impuestos a pagar es £ 2.20 
inferior al de la semana pasada, el programa indica los 
«impuestos a pagar esta semana» en la forma de «—2.20», 
mientras que en la Tarjeta de Deducciones se anota como 
«2.20 R» (R de «reintegro»). ¿Cómo habría que hacer 
para conseguir este último formato? Puede haber casos 
en que la cifra de «sueldo de esta semana» se componga 
de un sueldo base más una bonificación o comisiones, 
tras deducir los pagos de jubilación, etc.; en ese caso el 
programa debería pedir todas esas cifras por separado y 
calcular el sueldo semanal a partir de ellas. Es posible que 
algunas de las cifras (sueldo base, prestación por jubila- 
ción) sean las mismas todas las semanas, por lo cual cabe 
guardarlas en matrices, igual que se hace por ejemplo con 
el nombre del empleado. 

Si se dispone de la impresora ZX, es posible hacer que 
el programa imprima un talón de pago por cada emplea- 
do. 

El Ministerio de Hacienda publica algoritmos que sir- 
ven para calcular el mínimo exento, los impuestos a pa- 
gar, etc. sin necesidad de pedir al usuario que lo averi- 
gúe. Sin embargo, en el caso de una empresa que tenga 
pocos empleados el esfuerzo de programar esos algorit- 
mos y actualizarlos cada vez que se alteren las normas fis- 
cales es probablemente mayor que el esfuerzo de consul- 
tar dichas cifras en las tablas. 


Interés 


Otro tipo de cálculos financieros que puede realizar el 
ordenador es comparar los rendimientos de diferentes 
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clases de inversión. Supongamos que tenemos una cuen- 
ta ordinaria de ahorro en una constructora que da el 7% 
de interés después de impuestos, y pensamos que no es 
muy probable que necesitemos retirar el dinero en el fu- 
turo próximo. ¿Deberíamos pensar en colocarlo en un 
tipo distinto de cuenta en la que nos dan el 8,25%, des- 
pués de impuestos, pero perdiendo los intereses corres- 
pondientes a 28 días al retirar el dinero? El siguiente pro- 
grama calcula el monto total de intereses en cada caso. 


10  PRINT AT 20,0; "Cantidad invertida (pts.):”" 
yJ0) INPUT ctd 

30 CcLS 

90 PRINT "Intereses sobre “35 ctdj ”* pts.” 

50 PRINT 

60 PRIMT "semanas ordinario alto interés" 


70  PRINT 

100 FOR n=1 TO 16 

110  PRINT nX3;5 TAB 8; 

120  PRINT INT (ctd X%* 7 %* nXx*28/365 + 0.5) / 100; 
TAB 20; 

130 PRINT INT (ctd %X 8.25 X (n-1)X28/365 + 
0.5) / 100 

190 NEXT n 


Las líneas 120 y 130 imprimen los intereses al rédito 
correspondiente. La cantidad invertida se multiplica por 
el tipo de interés porcentual para obtener los intereses 
anuales en céntimos, esta cantidad se multiplica por el fac- 
tor necesario para obtener los intereses durante el perío- 
do correspondiente (4n semanas ó 28n días), que se re- 
dondean al número más próximo de céntimos y se con- 
vierten a pesetas. El tipo de interés se escribe directamen- 
te en el programa en lugar de pedirlo como INPUT, por- 
que lo lógico es que un programa de esta naturaleza ten- 
ga un carácter efímero —que se escriba en un momento 
dado y luego se borre— y no tiene sentido darle más ge- 
neralidad de la que se necesita para ese cometido. Por 
otro lado, el usuario y el programador probablemente 
sean la misma persona, por lo cual podrá alterar sin di- 
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ficultad la línea 120 ó 130 en caso necesario; efectivamen- 
te, por lo general será suficiente con sustituir las líneas 
10 a 30 por un comando LET que asigne a ctd la canti- 
dad que pensamos invertir (o reinvertir) y a menos que 
vayamos a hacer una copia de los resultados en la impre- 
sora, tampoco serán realmente necesarios los rótulos im- 
presos por las líneas 40 a 70. 

En este ejemplo ambas formas de inversión devengan 
interés simple calculado diariamente, menos los impues- 
tos calculados a los tipos corrientes (que no son reinte- 
grables aunque uno no pague impuestos, pero que hay 
que acumular si el contribuyente tiene un coeficiente más 
alto). Una cuenta de depósito bancario podría pagar un 
10,5%, sobre el cual habría que pagar luego los corres- 
pondientes impuestos. Así, si el tipo de gravamen es del 
30%, solamente quedará un 70% de los intereses después 
de pagar los impuestos. Los cálculos correspondientes se 
hacen así: 


130 PRINT INT (ctd %X 10.5 % 0.7 %*% nXx28/365 
+ 0.5) / 100 


Caso de no notificar con antelación la retirada, se pier- 
den los intereses de 7 días; para tener en cuenta este caso 
se hace: 


130 PRINT INT (ctd % 10.5 X 0.7 X (nxX*28-7)/365 
+ 0.5) / 100 


También es importante conocer la periodicidad con 
que la entidad abona los intereses. Supongamos que la 
cuenta ordinaria abona los intereses cada tres meses, que 
la cuenta de alto interés lo hace una vez al año, y que en 
ambos casos los intereses se abonan directamente en la 
cuenta, por lo cual se trata en realidad de interés com- 
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puesto y no de interés simple. Así pues, los intereses de 
los tres primeros meses en la cuenta ordinaria están de- 
vengando a su vez intereses durante las restantes tres 
cuartas partes del año, mientras que en la cuenta de alto 
interés no. El programa siguiente compara una cuenta que 
abona trimestralmente los intereses a un tipo anual del 
7% con otra que los abona anualmente a un interés del 
8.25% pero sin abonar nada durante los 28 primeros días 
(diferencia muy sutil respecto al ejemplo anterior, en el 
que eran los 28 últimos días cuando no se pagaban inte- 
reses). Supongamos que los trimestres son de 90, 91, 92 
y 92 días respectivamente (siendo de 91 el primero en 
caso de año bisiesto) y que la inversión se hace 30 días 
después del comienzo del primer trimestre del año; ctd 
es la cantidad invertida, sal? es el saldo de la cuenta or- 
dinaria, sal2 el de la cuenta de alto rendimiento, e ¿nt2 el 
interés acumulado en la cuenta de alto rendimiento pero 
que no es pagadero hasta finales de año; días1 es el nú- 
mero de días que tiene el trimestre por el que se van a 
pagar intereses en la cuenta ordinaria, días2 en la cuenta 
de alto rendimiento, y días3 el número de días del año. 

Las líneas 10 a 70 son las mismas que antes, salvo que 
en la línea 60 hay que sustituir «semanas» por «trimes.». 
De la línea 100 en adelante hay que sustituir por: 


100 LET sal1 = ctd 
110 LET sal2 = ctd 
120 LET int2 = O 
130 LET trim = 1 
190 LET año = 82 
200 DIM 4(39) 

210 LET d(1) = 91 
220 LET d(2) = 91 
230 LET 413) = 92 
240 LET 4¿(94) = 92 
250 LET dias! = d(1)-30 


20 LET dlas2 = dlas1-28 

270 LET dlas3 = 366 

300 LET sall = sal1 + INT (sall X 7 % 
diasl1/dlas3 + 0.5) / 100 
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310 LET int2 = int2 + INT (sal2 * 8.25 *X 
dias2/dlas3 + 0.5) / 100 
320 PRINT " 3, trim * *i añol 


330 PRINT TAB 85 sall-ctd;5 
330 PRINT TAB 203 sal2+int2-ctd 


350 LET trim = trime+1 
360 IF trim <= 4 THEN GOTO 600 
400 REM aqui para el final del año 


910 LET sal2 = sal2 + int2 

920 LET int2 = Q 

430 LET trim = 1 

4940 LET dlas3 = 365 

450 LET d(1) = 90 

460 LET año = año+1 

470 IF año/49 <> INT (año/49) THEN GOTO 400 
500 LET dlas3 = 366 

510 LET.dí(11) = 91 

£00 RE! para el siguiente trimestre 
10 LET dlasli=d(trim) 

620 LET dlias2 = dias] 

630 GOTO 300 


En el ZX81 el programa se detiene con código 5 des- 
pués de 18 líneas; pero es posible obtener más resultados 
utilizando el comando CONTinuar. El Spectrum pre- 
gunta al usuario si quiere desplazar verticalmente (scroll) 
la pantalla: utilícese Y ó ENTER para obtener la siguien- 
te pantalla de resultados, y N ó SPACE (para BREAK) 
si no se quiere seguir. 

En todo lo que antecede es posible obtener las cifras 
todas ellas bien alineadas unas debajo de otras utilizando 
las subrutinas de los programas expuestos anteriormente 
en este capítulo y en el capítulo 10. Y con ayuda de las 
técnicas introducidas en el capítulo 7 se pueden mostrar 
los resultados gráficamente, en forma de gráfica o de his- 
tograma. 

Las descripciones anteriores suponen que el usuario es 
el prestamista, pero los principios son los mismos si es 
el prestatario. Supongamos, por ejemplo, que el lector 
quiere comprarse un ordenador más grande y mejor, y 
que quiere comparar el coste que supone pagar con tar- 
jeta de crédito (exenta de intereses durante las primeras 
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semanas, luego con interés compuesto mensualmente) 
con el coste de aumentar la hipoteca de la casa (tipo de 
interés mucho más bajo, pero sin período exento de in- 
tereses y probablemente teniendo que cargar con «tasas 
administrativas»). Otra posibilidad es solicitar un sobre- 
giro al banco: la cantidad de dinero que normalmente se 
tendría en la cuenta corriente reduce el monto del sobre- 
giro, pero quizá haya que tener en cuenta un aumento de 
los gastos bancarios. El programa debería tener en cuen- 
ta todos esos factores. 


Capítulo 10 
Cuentas y registros 


Casi todos los ordenadores tienen la capacidad de al- 
macenar datos en una «memoria auxiliar», que normal- 
mente consiste en un disco o cinta magnética. Hay tres 
razones importantes para utilizar memorias auxiliares: 
aumentar la cantidad de memoria disponible, salvar los 
datos mientras el ordenador está desconectado, y permi- 
tir sacar datos del ordenador para almacenarlos en lugar 
seguro o para poder cargarlos en otro ordenador. 

Para que el ordenador tenga libre acceso a los datos al- 
macenados en cinta tiene que ser capaz de gobernar el 
movimiento de ésta a su paso por las cabezas. En las uni- 
dades de cinta destinadas a los ordenadores, todos los 
mandos (grabar, rebobinar, reproducir, etc.) los acciona 
electrónicamente el ordenador, de manera que éste pue- 
de buscar un registro determinado en la cinta, leerlo y co- 
piarlo en la memoria cuando sea necesario. Las grabado- 
ras de casete pensadas primordialmente para uso audio 
tienen mandos que se accionan mecánicamente por me- 
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dio de teclas, aunque la mayoría de ellas admiten la co- 
nexión de un mando de «parada a distancia» que puede 
detener el motor. 

Algunos ordenadores personales (los ZX no) aprove- 
chan esta posibilidad de «parada a distancia» para pro- 
porcionar cierto grado de control sobre la cinta. El or- 
denador puede leer un registro de la cinta y luego pararla 
hasta que está listo para leer el siguiente; pero no puede 
rebobinar la cinta ni pasar del modo de «escritura» (o 
«grabación») al de «lectura» (o «reproducción»). Si el or- 
denador se puede conectar a dos grabadoras de casete, 
puede leer los registros contenidos en una de ellas, ac- 
tualizarlos y transcribir los registros actualizados en la 
otra. 

La única forma de memoria auxiliar que traen el ZX81 
y el Spectrum es la grabadora de casete sin ninguna po- 
sibilidad de «parada a distancia». Existe un «microdrive» 
optativo para el Spectrum sobre el cual el ordenador tie- 
ne pleno control. 

Como el programa no posee ningún control sobre el 
casete, no puede adoptar el enfoque de «leer un registro, 
procesarlo, leer otro, procesarlo, etc.». Mientras procesa 
el primer registro (que podría llevar cierto tiempo en el 
caso de que ello exigiera solicitar datos de entrada al usua- 
rio) podría perderse el segundo registro. Por consiguien- 
te, tenemos que adoptar la estrategia de leer y copiar pri- 
mero todos los datos en la memoria, luego procesarlos, 
y finalmente volver a grabar los datos en cinta, como en 
la segunda versión del programa de la nómina en el ca- 
pítulo 9. Eso significa que cualquier tipo de aplicación 
como «base de datos» tiene que restringirse a la cantidad 
de datos que puede almacenarse en la memoria principal 
del ordenador. - 

La manera más sencilla de averiguar cuántos datos ca- 
brán en el ordenador es DIMensionar un conjunto ade- 
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cuado de matrices y ver qué tamaño máximo admiten an- 
tes de producirse un error 4. A título orientativo diga- 
mos que un ZX81 con el paquete RAM de expansión tie- 
ne disponibles unos 15.000 bytes para el programa BA- 
SIC y los datos; sin el paquete RAM solamente tiene 700 
Ó menos, según qué cantidad de datos haya en pantalla. 
El TS1000 americano sin paquete RAM tiene aproxima- 
damente 1.000 bytes más que el ZX81 europeo. El Spec- 
trum más pequeño (16 K) tiene disponibles 9.000 apro- 
ximadamente, y el mayor (48 K) unos 41.000. Un pro- 
grama en BASIC representativo requiere aproximada- 
mente 20 bytes por comando, mientras que el resto del 
espacio queda para los datos: los caracteres ocupan un 
byte cada uno, los números ocupan cinco bytes. 

Tomando como ejemplo el siguiente programa de 
«cuenta bancaria», el programa propiamente dicho exige 
aproximadamente 2.500 bytes, y cada registro consiste en 
16 caracteres y 2 números, con un total de 26 bytes. Por 
consiguiente, el ZX81 con el paquete RAM de expansión 
puede manejar hasta 480 registros aproximadamente, el 
Spectrum de 16 K aproximadamente 250, y el Spectrum 
de 48 K unos 1.480. El ZX81 sin expansión no tiene si- 
quiera espacio para el programa. La última versión del 
programa (la que incluye un menú) es aproximadamente 
3.000 bytes más larga, y por consiguiente admite unos 
120 registros menos. 


Cuentas bancarias 


Un ejemplo bastante clásico de «llevar personalmente 
las cuentas» es la de seguir los movimientos de la cuenta 
bancaria. El registro del ordenador proporciona el esta- 
do actualizado de las finanzas y permite además planifi- 
car por adelantado, cargando los datos en el ordenador 
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y añadiendo entradas para las transacciones que el usua- 
rio espera realizar en las siguientes semanas O meses. 
(Como es lógico, el usuario debe tener mucho cuidado 
de no salvar esta cuenta bancaria futura y ficticia en lu- 
gar de la verdadera.) Y también es fácil cotejarla con la 
versión dada por el banco en el estado de cuentas que en- 
vía periódicamente. 

El programa está escrito para el Spectrum, y da el sal- 
do en rojo cuando el usuario está en descubierto. Con el 
fin de ahorrar espacio en pantalla se utiliza una sola co- 
lumna para el importe de todos los asientos: los del ha- 
ber en negro y los del debe en rojo. (El estado de cuen- 
tas que envía el banco utiliza dos columnas distintas para 
los asientos del debe y del haber.) 

Hay muchos bancos que no cargan nada por hacer las 
Operaciones, siempre y cuando se mantenga un cierto sal- 
do mínimo en la cuenta. El programa utiliza fondo ama- 
rillo para el saldo cuando éste es inferior a ese mínimo 
(salvo que esté en números rojos), como advertencia de 
que el usuario tendrá que pagar ciertos gastos. Algunos 
bancos exigen un saldo compensado mánimo; para hacer- 
se una idea aproximada de cuál va a ser probablemente 
el saldo compensado se pueden retrasar todos los asien- 
tos del haber en cuatro días laborables. Por ejemplo, si 
uno entra en el banco un jueves y retira 5.000 pesetas e 
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ingresa un cheque de 7.500 pesetas, el asiento de 5.000 pe- 
setas en el debe hay que hacerlo con fecha del jueves, 
pero la de 7.500 pesetas en el haber habrá que hacerla con 
fecha del miércoles siguiente. 


10 REM cuenta bancaria 

20 LET siguiente = 2 

30 LET máximo = 200 

30 DIM d$(máximo,5): REM fechas 

50 DIM es$(máximo, 11); REM detalle 

60 DIM almáximo): REM cantidades 

70 DIM biímáximo): REM saldos 

100 INPUT "Saldo minimo sin gastos: "j¡ 

exento 

110 LET exento = INT (exento X 100 + 0.5) Ñ 
120 INPUT "Fecha inic. (S car.): "5das(1) 


130 LET e$(1) = "saldo inic." 

1940 INPUT "Saldo inicial: "j b(1) 

150 LET b(1) = INT (b(1) X 100 + 0.5) 

200 REM dibuja la forma de presentación 


210 INK O: PAPER 72?: CLS 

22 POKE 23692,20 

230 FOR n = 1 TO siguiente - 1 

240 GOSUB 1000 

2530 MEXT n 

300 REN aqui para añadir un apunte 

310 INPUT "Va a hacer un apunte? (S/N) "3 rs 
320 IF r$="N" OR r$="n" THEM GOTO 620 

330 IF r<>"S" AND rs<>*"s"” THEN GOTO 210 

330 IF siguiente >= máximo THEN GOTO 400 

400 REM crea el siguiente apunte 

3410 INPUT "Fecha (5 car.): "j¡jd$(siguiente) 
420 INPUT "detalle (11 car.): "jetkí(siguiente) 
430 INPUT "Cantidad: "j x: LET x = ABS xy a 
3-30 INPUT "Debe o haber? (D/H): “3 rs 

450 IF re="H" OR rs="h" THEN GOTO 480 

3460 —JIF r$<>"D" AND rs<>"d" THEN GOTO 440 


AO. LET-%, = AM 
330 LET a(í(siguiente) = INT (x X* 100 + 0.5) 
490 LET bí(siguiente) = b(siguiente - 1) 


+ aísiguiernte) 
500 LET n = siguiente: LET siguiente = n+1 
510 GOSUB 1000 
520 GOTO 300 


600 REM aqui si se llena la matriz 
610 PRINT "Lo sienta, no hay más espacio.” 
620 REM aqui para terminar 


630 INPUT "Lo salva en cinta? (S/N) "jrs 

640 —1F r$="N" OR rs="n" THEN GOTO 9999 

650 IF r$<>"S* AND rs$<>"s"” THEN GOTO é30 

660 SAVE "Banco" LINE 200 

670 PRINT "Rebobine la cinta para verificar” 
680 VERIFY "Banco" 
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490 GOTO 9999 

1000 REM presentación en pantalla 

1010 IF PEEK 23692 > 20 THEN POKE 23692,14 
1020 PRINT AT 21,0: PRINMT 

1030 PRINT AT 0,0; 


“Fecha Detalle Cant. Saldo ",, 
1040 PLOT 0,164: DRAW 255,0 
1050 PRINT AT 20,0; d$(n)j ”* "j¡es(n); 
1060 LET vm=7: LET v=a(ím):í GOSUB 2000 


1070 LET w6=8:; LET v=b(rm) 

1080 IF v >= O AND v < exento THEN PAPER 6 

1090 GOSUB 2000: PAPER 72 

1100 PLOT 349,8; DRAW 0,167 

1110 PLOT 137,8: DRAW 0,167 

1120 PLOT 193,8: DRAW 0,162 

1130 —RETURI 

2000 REM escribe v céntimos en wm caracteres 
(2<W<9) 

2010 LET vé = STR ABS y 

2020 IF LEN v$ >= wm THEN LET vs = ”* HA" 


(2 TO v) 
2030 LET y$ = * 0" (9-w TO 2-LEN v$%) + vs 
2030 REN ahora v% tiene w-1 caracteres y los 


dos úultimos son digitos 
2050 PRINT INK 2 AND v<O0j vs(1 TO w-3)3 ".”j 
v$(n-2 TO m-1);5 
2060 RETURN 


Las líneas 10 a 150 se limitan a establecer las matrices 
y a rellenar el primer asiento. Dos matrices de caracteres 
almacenan la fecha y la descripción de cada asiento («chq» 
y el número del cheque cuando se trate de un asiento en 
el debe que consista en un pago por cheque, «sueldo» 
cuando el asiento en el haber sea el sueldo mensual, etc.); 
dos matrices numéricas almacenan el monto de la opera- 
ción (positivo si es en el haber, negativo si en el debe) y 
el saldo actual. Este último no es estrictamente necesa- 
rio, porque puede calcularse tomando todas las cifras ti- 
tuladas «cantidad»; pero en el caso de tener que hacer 
ajustes puede ser útil modificar simplemente las cifras de 
«saldo» sin insertar realmente los asientos adicionales. (Al 
recibir el estado de cuenta del banco podríamos descu- 
brir que, debido al pago de tasas bancarias o del ingreso 
de dividendos de acciones, pongamos por caso, las dos 
cantidades no cuadraran; aun así, quizá no queramos in- 
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sertar registros adicionales para reflejar esos movimien- 
tos. Para eliminar cifras de «saldo» concretas, hay que su- 
primir las líneas 70 y 490 y añadir 


190 INPUT "Saldo inicial: “ja(1) 
150  LET a(1) = INT (a(1)X100 + 0.5) 


22535 LET saldo = OQ 


10S LET saldo = saldo + aln) 
1070 LET w = 8: LET y = saldo 


Las líneas 200 a 250 escriben los movimientos en pan- 
talla con ayuda de la subrutina de las líneas 1000 y si- 
guientes, que desplaza hacia arriba los registros en pan- 
talla pero manteniendo las cabeceras de la parte superior 
y las líneas que marcan las distintas columnas. El despla- 
zamiento vertical de la pantalla se detiene periódicamen- 
te; al usuario se le pide entonces que apriete una tecla 
cuando haya leído lo que está escrito en la pantalla; la lí- 
nea 220 impide que suceda lo anterior cuando aún no se 
ha escrito nada en la pantalla (para comprobarlo, prué- 
bese el programa sin incluir esa línea) y la línea 1010 se 
encarga de que las sucesivas «páginas» que ve el usuario 
se solapen unos cuantos renglones. 

Las ':r2as 300 a 520 añaden un nuevo asiento a los ya 
registrados en pantalla, mientras que las líneas 630 a 690 
salvan en cinta el estado actualizado. 

Es importante prever el número correcto de espacios 
en los literales de las cadenas de caracteres: la línea 1030 
tiene un espacio entre las palabras «Fecha» y «Detalle», 
cuatro entre «Detalle» y «Cant.» y dos entre «Cant.» y 
«Saldo». Las dos comas al final se encargan de borrar de 
la segunda línea todo aquello que, por efecto del despla- 
zamiento vertical (scroll), se haya podido quedar en ella. 
La cadena en la línea 2020 tiene dos espacios y seis aste- 
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riscos, y la de la línea 2030 tiene cinco espacios delante 
del cero. 

La subrutina que comienza en la línea 2000 escribe, co- 
rrectamente alineado, el importe o saldo (suponiendo que 
se dé en céntimos y que sea un número entero), o escribe 
una fila de asteriscos si la cifra es demasiado grande. La 
línea 2030 se encarga de que la cadena v$ tenga la longi- 
tud debida y coloca un cero en la columna de las decenas 
de céntimos si la cifra es inferior a diez céntimos. La lí- 
nea 2050 lo imprime, junto con su coma o punto deci- 
mal, en rojo (color 2) si v era negativo y en negro (color 
0) en los demás casos. 

Para adaptar el programa al ZX81 hay que hacer en pri- 
mer lugar los cambios de rigor: modificar las líneas de 
INPUT y las que contienen más de un comando. Aparte 
de eso, hay que modificar el formato de salida para adap- 
tarse a los medios, más modestos, de que dispone el 
ZX81. Las diferencias principales son: a) No podemos 
utilizar el rojo para los números negativos; la mejor so- 
lución probablemente sea utilizar blanco-sobre-negro, 
como en lo que sigue: 


2050 LET v% = vs$(1 TO w-3) + ".* + vélm-2 TO w-1) 
2052 IF yv >= O THEN GOTO 2058 

2059 FOR i=1 TO mw 

2055 LET vs$(i) = CHR$ (128 + CODE v+(i)) 

205% MEXT 1 

2058 PRINT vs; 


b) No existe la posibilidad de utilizar DRAW para 
las líneas de separación entre columnas. Un remedio es 
emplear la gráfica de pixels para dibujar líneas algo más 
gruesas, o bien realizar la división de alguna otra mane- 
ra, como la siguiente: 


1030 PRINT AT 0,0; 
1033 PRINT "Fecha: Detalle ¿Cant. ¿Saldo % 
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1040 PRIMT "----- Po -- i---- po o.--- , 
1050 PRIMT AT 20,03 d$ln)j ":"j esín)j “2%; 
1050 LET uw=6 

1062 LET v=a(n) 

1064  GOSUB 2000 

1070 LET w=2 

1075 LET v=a(n) 

1080  PRINT “:*%; 


Obsérvese que, independientemente del método que se 
utilice, w tiene que ser una unidad menor que en la ver- 
sión del Spectrum. 

c) No existe ningún equivalente directo del fondo 
amarillo utilizado para indicar que el saldo está por de- 
bajo del mínimo exento de cargos. Sin embargo, puede 
marcarse mediante un carácter situado en el espacio en- 
tre las columnas de «Cant.» y «Saldo», como por ejemplo 


1080 LET v% 
1082 IF y < 
108949 LET vs 
1086 PRINT v%; 


OR v >= exento THEN GOTO 1086 
> 


"nom 


d) Es necesario realizar explícitamente el desplaza- 
miento vertical de la pantalla (utilizando el comando 
SCROLL) en sustitución del implicado en los comandos 
PRINT de la línea 1020; así pues, 


1020 SCROLL 


Además hay que sustituir las instrucciones de las líneas 
220 y 1010 (que controlan el mensaje «Scroll?» en el Spec- 
trum) por algo así como: 


220 LET scroll count = 19 
1010  LET scroll count = scroll count - 1 
1012 IF scroll count > O THEN GOTO 1020 
10193 LET scroJl count = 14 


101ó PRINT AT 21,0; "Pulsa *"*NEWLINE"" para 
scrol1” 
1018 INPUT ys 
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para permitir que el usuario indique cuándo ha acabado 
de leer una página y el programa puede seguir a la si- 
guiente, aunque es discutible que el ZX81 imprima tan 
despacio los números que le da tiempo de sobra para leer- 
los de todos modos. 

e) Para realizar la operación de SAVE, etc. (líneas 660 
a 680) es necesario hacer los mismos cambios que en el 
programa de la nómina, en el capítulo 9. 


Funciones adicionales 


Hay una serie de funciones que resulta útil añadir a 
este programa y que realmente sen típicas en esta clase 
de aplicación como «base de datos»: por ejemplo la ca- 
pacidad de modificar registros, insertar registros, supri- 
mir registros, hacer una lista de los registros comenzan- 
do por uno determinado, y desplazar (scroll) hacia arriba 
y hacia abajo la lista. 

En todos los casos que hemos visto hasta ahora, el pro- 
grama seguía una secuencia perfectamente definida de cál- 
culos y pedía al usuario un input cuando era necesario. 
A través del programa, el programador controlaba la se- 
cuencia de pasos, mientras que el usuario tenía un papel 
completamente pasivo. Como es lógico, el usuario tiene 
la última palabra en el sentido de que puede optar por 
no pasar el programa o abortarlo en cualquier momento. 
(Obsérvese que no decimos que el ordenador controle 
nada: el ordenador no es responsable del modo en que 
se comporta el programa, igual que una grabadora de cin- 
ta no lo es de las opiniones vertidas por la voz grabada 
en ella.) 

En el siguiente ejemplo tenemos una situación algo dis- 
tinta, en la que pedimos al usuario que elija qué tareas 
debe realizar el programa y en qué orden. Pero una vez 
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elegida la función, el programador sigue controlando la 
manera de ejecutarla. 

Cabría ofrecer al usuario la posibilidad de teclear ór- 
denes al programa, de forma muy parecida a como el pro- 
gramador teclea las órdenes para el BASIC; pero enton- 
ces el usuario tendría que aprender el «lenguaje» en que 
están expresadas las órdenes y averiguar, en concreto, qué 
órdenes existen; por otro lado, exigiría que el programa 
interpretara las órdenes (que seguramente vendrían escri- 
tas en la forma de cadenas de caracteres), lo cual, como 
ya vimos en capítulos anteriores, resultaría probablemen- 
te en un programa complicado (difícil para el programa- 
dor y que posiblemente ocuparía una proporción exage- 
radamente grande de la memoria del ordenador) o bien 
en un formato excesivamente rígido para las órdenes (lo 
cual sería tedioso para el usuario). 

El método que suele seguirse en este tipo de situacio- 
nes es ofrecer al usuario un «menú» de las posibilidades 
existentes. El usuario selecciona una de ellas y el progra- 
ma solicita entonces al usuario los datos necesarios, exac- 
tamente igual que en los programas anteriores. De ese 
modo, el usuario ve cuáles son exactamente las posibili- 
dades existentes, y el rumbo que toma el programa está 
dirigido por respuestas elementales (en su mayor parte, 
de un solo carácter). 

En el caso del programa de la cuenta bancaria podría- 
mos tener lo siguiente (las líneas 10 a 150 permanecen 
inalteradas): 


200 IMK O: PAPER 7: CLS 

210 PRINT "1 Ver la cuenta desde el inicio” 
215 PRINT 

220 PRINT "2 Ver última pág. de la cuenta” 
225 PRINT 

230 PRINT "3 Añadir un apunte al final” 

235 PRINT 

240 PRIMWNT "4 Añadir un apunte en el medio” 
245 PRINT - 


198 John y Catherine Grant 


250 PRINT *"S Anular un apunte" 

255 PRINT 

260 PRINT "ó Cambiar un apunte” 

265 PRINT 

270 PRINT *> Imprimir los movimientos” 

275 PRINT 

280 PRINT "8 Salvar los datos en casete” 

285 PRINT 

290 PRINT "2 Salír del programa” 

300 INPUT “Seleccione un número de opción: "¡in 


310 LET n= INT (n+0.5) 
320 IF n<1 OR n>92 THEN GOTO 300 
330 CLS 


330 GOTO 1000 X n 


La línea 340 salta a la línea 1000 si se selecciona la op- 
ción número 1, a la línea 2000 si se elige la opción nú- 
mero 2, y así sucesivamente. La línea 310 garantiza que 
la línea a la que se salta es la 1000 o la 2000 o la 3000, 
etc.; si no, podría ocurrir que el usuario tecleara, por 
ejemplo, 4.73, e hiciera que el programa saltara a la línea 
4730, con consecuencias que probablemente no serían de- 
masiado útiles. Otra posibilidad es que la línea 310 insis- 
ta en que el número sea entero, del modo siguiente: 


310 IF n <> INT nm THEN PRINT AT 19,05 
"el número de opción no debe”, 
” incluir decimales”: GOTO 300 


Análogamente, la línea 320, antes de volver a la línea 
300, podría dar al usuario un mensaje que le indicara que 
el número tiene que estar comprendido entre 1 y 9. 

La parte del programa que se ocupa de cada opción tie- 
ne que terminar por saltar a la línea 200; otra posibilidad 
consiste en sustituir la línea 340 por 


> 340 GOSUB 1000 X*X n 
350 GOTO 200 


es decir, utilizar un comando RETURN en lugar de 
GOTO 200, lo que a primera vista parece más elegante, 
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con un aspecto «mejor estructurado». Pero en el caso de 
la opción 9 no queremos volver a la línea 200 y por tanto 
deberíamos retirar la información indeseada de la pila 
GOSUB. En el Spectrum es posible hacerlo con ayuda 
de CLEAR (que también borrará todas las matrices, etc.), 
mientras que en el ZX81 es necesario recurrir a NEW 
(que borra todo). Conviene por tanto añadir 


335 IF n=2 THEN GOTO 9999 


a fin de que la opción 9 reciba un tratamiento especial y 
evitar poner de entrada nada en la pila GOSUB. 

Suponiendo que retenemos la línea 340 original, el res- 
to del programa puede ser el siguiente: 


500 REM presentación en pantalla 

510 IF PEEK 23692 > 20 THEEN POKE 23692,14 
520 PRINT AT 21,0: PRINT 

530 PRINT AT 0,0; 


"Fecha Detalle Cart. Saldo”,, 
590 PLOT 0,1649: DRAW 255,0 
550 PRINT AT 20,0; d$(1rn)j " "jesítn); 


560 LET wm=7: LET v=aln): GOSUB 700 

570 LET w=8: LET v=b(r) 

580 IF v>=0 AND v < exento THEN PAPER 6 

590 GOSUB 700: PAPER 2 

600 PLOT 44,8: DRAW 0,16? 

510 PLOT 137,8: DRAW 0,162 

ó20 PLOT 193,8: DRAW 0,167 

630  —RETURH 

700 REN escribir v decimales en vw caracteres 
(229) 

710 LET v% = str% ABS y 

720 IF LEN vs >= w THEN LET vs = * IAEA" 


(2 TO v) 
730 LET v% = " O" (9-w TO 2-LEN v$) + ys 
7430 REM ahora v$ tiene w-1 caracteres y 


los dos últimos son digitos 
750 PRINT INK 2 AND v<O;3 vs$(1 TO vw-3)3 "."; 
v$é(rm-2 TQ vw-1)5 

760 RETURN 

jo00 REM Visualiza la cuenta desde el inicio 
1010 LET m=1 ¿ 
1020 GOTO 2030 
2000 REM Visualiza la última página de la cuenta 
2010 LET m = siguiente - 18 


200 


2020 
2030 
2030 
z2050 
2060 
2070 
2100 


2110 
2120 
2000 
3010 
23020 
3030 
3040 
2050 
3500 
3510 
3520 
3530 
3540 
3550 
3550 
3570 
3580 
3590 
3600 
2610 
4000 
4010 
4020 
34030 
40390 
4100 
4110 
4120 
3130 
34130 
4150 
4160 
4170 
4180 
4190 
4500 
43501 
4502 
31510 
4520 
45330 
4590 
4550 
4560 
4570 
4580 
4590 
4600 
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1JF m<1 THEN LET m=1 
REM Visualiza la cuenta desde el apunte m 
POKE 23692,20 
FOR n=1 TO siguiente -— 1 
GOSUB 500 
NEXT n 
REM Espera para ser utilizado entonces 
va a la 200 
INPUT "ENTER para mená principal: "jrs$ 
GOTO 200 
REM Añadir apuntes al final 
IF siguiente >= máximo THEN GOTO 3020 
LET n = siguiente 
GOSUB 3500 
LET siguiente = siguiente + 1 
GOTO 2000: REM para realizar un nuevo apunte 
REM Recibe el apunte número n 
IMPUT “Fecha (5 car.): *3 d%1r) 
INPUT, "Detalle (11 car.): "3 es(n) 
IMPUT "Cantidad: "3 x 


LET x= IHT (0.5 + 100 % ABS x) 
INPUT "Debe o Haber? (D/H): "3 rs 
IF. r$ = "H" OR rs="h" THEN GOTO 3590 


IF r$<>"D" AND r$<>"d" THEN GOTO 4100 
LET x= - x 


LET afn) = x 
LET bin) = bín-1) + x 
RETURN 


REM Insertar un apunte 
IF siguiente Y máximo then GOTO 4100 

REH aqui sí no hay espacio para más apuntes 
PRINT "Mo hay espacio para más apuntes” 
GOTO 2100 

REM aquí si hay espacio para más apuntes 
LET m% = "Insertar antes”: GOSUB 34500 
IF n=0 THEN GOTO 200 


FOR i = siguiente TO n STEP -1 

LET d$(1+1) = d$(í): LET es(i+1) = es(i) 
LET a(i+1) = ati): LET b(1+1) = b(i) 
MEXT 1 


LET siguiente = siguiente + 1 

GOSUB 3500 

GOTA 6100 
REM Encuentra el registro y hace n= a su 
REM húmero o cero si no lo encuentra 
REM Con 1m% se indica lo que hacer con el 

PRINT “hHota: debe dar la fecha" 


PRINT * EXACTAMENTE como se pone” 
PRINT * en el apunte” 

INPUT  (m$+* de fecha: *")3 rs 

LET r$ = (re+” E 10:59 

FOR n = 1 TO siguiente - 1 

IF d$(in) = rs THEN GOTO 4620 

MEXT n 


INPUT "no encontrado. Intenta de nuevo (S/N)";rs 


IF rs="S" OR r$="s" THEM GOTO 4510 
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4610 
34620 


3630 
36340 
39650 
34660 
4700 
34710 
3720 
39730 
47390 
4750 
3760 
47270 
4780 


4790 
4800 
5000 
soajo 
5020 
5030 
50390 
5050 
5060 
so70 
5080 
6000 
6010 
6020 
6030 
6100 
6110 


61720 
6130 
614340 
6150 
6160 
6170 
2000 
7010 
7020 
7030 
7040 
7100 
7101 


7110 
7120 
7125 
7130 
71390 
7150 
7155 


LET n=0: RETURN 
REM encontrado registro, n=número, 
ver Si hay otro 


FOR i= n+1 TO síguiente - 1 
IF d$(i1) = r$ THEN GOTO 34700 
MEXT i 


RETURN: REM indentíficar inequivocamente 
REN aqui si más de uno con Ja misma fecha 


LET m=.5 
POKE 23692,20 


REM escribe la parte relevante del apunte 


FOR n=m TO m+17 
IF n >= siguiente THEN GOTO 4780 
GUSUB 500 


MEXT n 

INPUT "número ? (1 = primero en", 
"pantalla, 2 = segundo, etc) ”"j n 

LET n= m + n - 1 

RETURN 


REM anular apunte 
LET m$ = "Anular”:; GOSUB 4500 
IF n=0 THEN GOTO 200 
FOR i= n TO siguiente - 2 


LET d$1(i) = d$(i+1): LET es$(i) = es(i+1) 
LET ali) = aíi+1): LET b(i1) = b(i+1) 
MEXT 1 

LET siguiente = siguiente - 1 


GOTO 6100 


REM Cambiar un apunte 
LET m% = "Sustituir”: GOSUB 4500 
IF n=0 THEN GOTO 200 
GOSUB 3500 
REM calcula de nuevo los saldos 
INPUT "Recalcula saldos siguientes?”;5 
» (S/N) “3 rs 
IF r$="N" OR r$="n" THEN GOTO 200 
IF r$<>"S"”" AND r$<>"s" THEN GOTO 6110 


FOR ¡=n TO siguiente - 1 
LET DUE <= b1-1) + acia 
NEXT i 

GOTO 200 


REM sacar Jos movimientos por impresora 


IF IN 251 <> 255 THEN GOTO 7100 


PRINT "Debe conectar impresora ZX para" 


PRINT ” utilizar esta posibilidad.” 
GOTO 2100 
REM aqul si hay una impresora 
REN instala caracteres para control 
impresora 
FOR i= O TO 15 
POKE USR "a” + i, BIN 00001000 
POKE USR "c” + i, BIN 01000000 
POKE USR "e" + 1, BIN 00000000 
NEXT i 
POKE USR "b” + 3, BIN 11111111 
POKE USR *"d” + 3, BIN 11111111 


* 
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7160 POKE USR "4" + 3, BIN 11111144 


7170 LPRINT "FechalDetalle [Cant. |Saldo  "” 
7180 LPRINT *"----- ooo o doo —--- ho o-- . 
7200 FOR n = 1 TO siguiente - 1 

7210 LPRINT d$(n)3 "!"3 esíln)3 “0”; 

27220 LET vp=6: LET v=aín): GOSUB 7500 

7230 LET r$ = "!”: LET v=b(1(n) 


2390 IF v>+0 AND v< exento THEN LET rs="x" 

7250 LPRINT rs 

7260 LET w=7; GOSUB 7500 

7270 NEXT n 

7280 GOTO 200 

75300 REM escribe v decimales en vt caracteres (2<Wm<8) 

753510 LET v% = STR$ ABS y 

7520 IF LEN vs >= bm THEN LET vH = " XAXXXXX" 
(2 TO vm) 

73530 LET vs = " O” (8-w TO ó6-LEN v%) + ys$ 

7540 LPRINT INVERSE v<0j v$(1 to w-3)3 ".”; 
véblnw-2 TO vm-1)5 

7550 RETURN 

3000 RE! salvar en cínta 

8010 SAVE "Banco" LINE 200 

8020 PRINT "Rebobine la cinta para verificar" 

8030 VERIFY "Banco" 

282040 GOTO 200 

2000 REN salir 

9010 PRINT "Terminado." 

2020 PRINT 

7O230 — PRINT "Para volver a empezar, transmita GOTO 200” 


Obsérvese que el bucle de las líneas 5030 a 5060, que co- 
pia hacia atrás los registros a fin de cerrar el hueco que 
de otro modo daría cualquier registro suprimido, avanza 
hacia adelante desde el registro suprimido hasta el final, 
mientras que el bucle de las líneas 4130 a 4160, que los 
copia hacia adelante a fin de abrir un hueco donde poder 
insertar un nuevo registro, procede hacia atrás desde el 
final hasta el punto de inserción. Veamos qué sucedería 
si la línea 4130 fuese 


FOR ií= mn TO siguiente 
de modo que el programa se abriera paso hacia adelante 
a través de los registros: en la primera vuelta del bucle, 
el registro n+1 sería sustituido por una copia del regis- 
tro n; en la segunda vuelta, el registro n+2 sería sustitui- 
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do por una copia de este nuevo registro, n+1, que es el 
mismo que el registro n; en la tercera vuelta, el registro 
n+3 sería reemplazado por una copia del nuevo registro 
n+2, que es el mismo que el registro n; y así sucesiva- 
mente. El resultado final es que nos quedamos con un 
gran número de copias del registro 2, mientras que todos 
los registros posteriores se han echado a perder. Al des- 
plazar bloques de datos de esta manera siempre es nece- 
sario poner cuidado para mover los datos en la secuencia 
correcta, sin volver a utilizar nunca el espacio ocupado 
por un dato hasta no haberlo trasladado a otro lugar. 

La subrutina que comienza en la línea 4500 pide al 
usuario que identifique un registro dando su fecha (la lí- 
nea 4550 se ocupa de que tenga una longitud de exacta- 
mente 5 caracteres); si hay varios registros con la misma 
fecha, se pide al usuario que identifique el que sea en una 
porción de los datos que a tal fin se exhibe en pantalla. 
Eso presupone que cada registro lleve una fecha y que 
los registros se hallen ordenados por fechas; si este su- 
puesto no se cumple, el programa no es que fracase, pero 
es posible que el usuario no consiga identificar fácilmen- 
te el registro de que se trate. Otra posibilidad sería pre- 
sentar el enunciado con un marcador al lado del «regis- 
tro actual», parecido al que se coloca al lado de la «línea 
en curso» del listado al editar un programa de ZX BA- 
SIC; el marcador podría moverse mediante las teclas de 
control del cursor (o sea, a través de INKEY$) y hacer 
que la pantalla se desplace hacia arriba o hacia abajo 
(scroll) al aproximarse a la parte superior o inferior de la 
pantalla. 

Cabría modificar las rutinas de input y de presentación 
visual con el fin de que, si no se introduce ninguna fe- 
cha, se suponga que es la misma que la de la entrada an- 
terior, y de manera que al producir (output) una entrada 
se omita la fecha cuando ésta sea la misma que la de la 
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entrada anterior (a menos que sea la primera de la panta- 
lla). 

Después de introducir una alteración en medio de los 
datos, se ofrece al usuario la oportunidad de que el pro- 
grama recalcule todas las cifras del «balance» situadas de- 
trás del punto de modificación (líneas 6100 a 6160). Otras 
mejoras que el lector debería incorporar al programa son 
la posibilidad de que el usuario introduzca una cifra ex- 
plícita de «balance» y la posibilidad de suprimir o modi- 
ficar grupos enteros de varias entradas. 

La línea 7010 comprueba si se halla conectada la im- 
presora ZX. El ZX81 no tiene la función IN, pero en lu- 
gar de ello puede utilizarse una rutina en código máqui- 
na muy sencilla; consiste en los seis bytes siguientes: 


219, 251, 79, 6, O, 201 


que podemos añadir al principio del programa en un co- 
mando REM como 


1 REM <= CLS ?2* TAN 


con cuidado de utilizar exactamente los caracteres correc- 
tos (que se pueden consultar en el Apéndice A del ma- 
nual). Solamente existe un carácter de espacio entre el ca- 
rácter gráfico y TAN, pero en ningún sitio más. Para ob- 
tener CLS hay que teclear primero THEN (para pasar al 
modo K), después teclear CLS, luego volver y borrar el 
THEN); otra posibilidad es teclear CLS inmediatamente 
después del número de línea y después volver y teclear 
REM <= . El signo de interrogación representa el carác- 
ter con código 79, que no se puede teclear directamente: 
utilícese cualquier carácter al teclear inicialmente la línea, 
y después de haber sido integrada al programa hágase 


POKE 16516,79 
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para insertar el código correcto. En la línea 7010 puede 
utilizarse entonces USR 16514 en lugar de IN 251. 

Las líneas 7110 a 7160 establecen gráficas definidas por 
el usuario para dibujar en la impresora líneas análogas a 
las utilizadas en la pantalla. La A cambiada, en el modo 
de gráficos, sirve para trazar las líneas entre las columnas 
de «Fecha» y «Detalle»; la C, para las otras dos líneas. 
Al teclear el programa, estos caracteres aparecerán pro- 
bablemente como una A y una C mayúsculas; pero una 
vez que el ordenador ha obedecido las líneas 7110 a 7160 
(lo cual solamente sucederá si se dispone de una impre- 
sora ZX y se invoca la opción 7, a menos que se haga un 
GOTO 7110 deliberado), aparecerán como símbolos de 
barra vertical apropiados. El primer símbolo en forma de 
«+» en la línea 7180 es la b cambiada en modo gráfico; 
los otros dos son d, y los caracteres de línea horizontal 
son f. 

La subrutina en las líneas 500 a 630 cabría reorgani- 
zarla para utilizar también estos caracteres gráficos, pero 
seguiría siendo necesario garantizar que las líneas de se- 
paración entre columnas se extienden del extremo supe- 
rior al inferior de la pantalla, aun en el caso de que sola- 
mente hubiese un registro que presentar. 


Capítulo 11 
El tanteo en los juegos 


Hay muchos juegos que exigen un poco de aritmética 
y de cuentas para llevar el tanteo; el ordenador puede ser 
útil en ese aspecto. El siguiente programa sirve para lle- 
var el tanteo en el juego de los dardos; la puntuación to- 
tal de los tres dardos se introduce en la forma de un solo 
número; pero como el ZX BASIC permite introducir 
cualquier expresión, sin necesidad de restringirse a nú- 
meros literales, el usuario puede teclear, por ejemplo: 


16+3X19+50 


si los tres dardos fueron un 16, un 19 triple y una diana. 

Aunque el programa está escrito para el Spectrum, los 
únicos cambios que hay que hacer para el ZX81 son la 
omisión de los controles de color como «INK 4» y las 
alteraciones de rigor (en INPUT y en líneas que conten- 
gan más de una orden) que ya conocemos de capítulos 
anteriores. 
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10 REM marcador para el juego de dardos 

20 DIM n$12,15): DIM n(2): REM nombre y longitud 
30 DI'3 s(2): REM tanteo 

40 INPUT "Hombre equipo uno? "3 s% 


50 LET nm$(1) = s$; LET n(1) = LEN s$ 
0 INPUT "Nombre equipo dos? ";¡s% 
70 LET n$(2) = s$: LET n(2) = LEN s$ 


30 INPUT "A cuántos tantos? 
90 INK 7: PAPER O: BORDER O 
100 REM empieza el juego 
110 CLS: PRINT ns$(1);5 TAB 163 n$1(2) 
120 PRIMT 
130 FOR i=1 to 2 
140 LET s(i) = inicial 
150 LET s5$Ñ = "":; GOSUB 1000 
150 MEXT ii 
zo00 REN cada tirada del jugador 
zio FOR i = 1 to 2 
220 INPUT (né$(14,1 TO n(i))+" tantos? ")j tanteo 
230 IF tanteo=0 OR tanteo > s(i) OR 


jinicial 


tanteo = s(i)-1 THEN GOTO 270 
2940 LET s(1) = s(i) -— tanteo 
z2530 LET s$ = STRS$ tanteo: GOSUB 1000 
260 IF si) = O THEN GOTO 300 


270 NEXT ii 
280 GOTO 210 


200 REM aqui cuando un jugador ha vencido. 
310 PRINT 

320 PRINT FLASH 13 n$(1)3 " vencedor!" 

330 INPUT "Otra partida? (S/N) "jr% 

340 IF r$<>"S" AND r$<>"s"”" THEN GOTO 9999 
350 INPUT (n39(1)+" empieza? (S/M) ")jr 


360 IF r$="S" OR r$="s" THEN GOTO 100 

370 IF r$<>"N*" AND r$<>"n"” THEN GOTO 350 

380 LET rée=n$(1): LET n$(1)=n$(2): LET n$(2)=r3 
3790 GOTO 100 


1000 REM escribe el tanteo s*% y nuevo total para 
1001 REN el jugador número i 
1002 REN deja s$ = total 


1010. PRINT INK 95 TAB (1óéXi-12-LEN s$)j s$; 
1020 LET s$ = STR$ s(i) 

1030 PRINT TAB (16*Xi-ó-LEN s$)j s$; 

1040 RETURN 


El programa imprime dos columnas por cada equipo: 
la columna izquierda es la de la puntuación conseguida 
hasta el momento (en color verde) y la de la derecha, la 
de los puntos que quedan por conseguir (en blanco). Si 
la puntuación es cero o «fallo» no se imprime nada. 

Para llevar la cuenta del número de juegos ganados por 
cada jugador y presentarlo en color rojo en la parte su- 
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perior de la pantalla, pueden añadirse al programa las si- 
guientes líneas. Obsérvese que al DIMensionar la matriz 
g, sus elementos g(1) y g(2) se ponen a cero. 


23 DIM 312): REM juegos ganados 
115 PRINT INK 2; g(11); TAB 16; 912) 
305 LET 311) = g(i) + 1 


385 LET tanteo=3(1): LET g(11)=312): 
LET 3y(2)=tarnteo 


Si los dos jugadores se alternan en la salida, se pueden 
suprimir las líneas 350 a 370. Si el que pierde un juego 
sale en el siguiente, se puede poner 


360 IF i=2 THEN GOTQ 100 


en lugar de lo anterior. 
Si sustituimos la línea 1030 por 


1030 PRINT TAB (16*Xi-ó-LEN 5%); PAPER s(i)=170 OR 
s(i)=167 OR s(i)=169 OR s(1)<162 AND 
s(i)<>1593 se 


entonces el tanteo aparece sobre fondo azul en lugar de 
negro si hay posibilidad de terminar con tres dardos. 
¿Cómo habría que modificar el programa para que hicie- 
ra una lista de todos los posibles finales de tres dardos 
del siguiente jugador? 

Para reducir el número de ocasiones en que los juga- 
dores tienen que esperar a que la persona que apunta ter- 
mine los cálculos, es preciso simplificar al máximo la ope- 
ración de introducir los puntos. La siguiente modifica- 
ción permite introducir por separado la puntuación de 
cada dardo, o bien introducir de una sola vez la puntua- 
ción de dos o de tres dardos; la operación puede hacerse 


ZX Spectrum: Manual del programador 209 


sin utilizar ninguna tecla de cambio (shift). El usuario tie- 
ne que intercalar un espacio en blanco entre cada dardo 
si se introduce de una sola vez más de una puntuación, 
y no debe utilizar ningún espacio en blanco en ningún 
otro caso; es algo que hay que explicar claramente en la 
documentación o en un mensaje que aparezca en pantalla 
al comienzo del programa. El objetivo de esta medida 
aparentemente «antipática para el usuario» es poder te- 
clear los datos lo más rápidamente posible. 

La puntuación se teclea en la forma de un número que 
puede ir precedido por D o X para indicar un doble o 
por T para indicar un triple; B (de bull = diana) puede 
utilizarse en lugar de 25. Así pues, un doble veinte puede 
teclearse como 40 o como D20 o como X20; un dieci- 
nueve triple, como 57 o como T19; y una diana, como 
50 o como D25 o como X25 o como DB o como XB. 

Sustituimos la línea 220 por 


220 GOSUB 2000 


y la subrutina es 


2000 REM entrada del tanteo para el jugador i 

2010 LET r$ = "":; LET tanteo=0 

2020 POKE 23658,8: REM fíja las mayúsculas 

2030 LET d$="primer"”: GOSUB 2100 

20940 LET d$="segundo":; GOSUB 2100 

2050 LET di="tercer” 

2100 REM tantos de un dardo y los suma al tanteo 

2101 REN deja los datos no utilizados en rs para la 
vez siguiente 

2110 1F r$="" THEN GOTO 2130 

2120  1F rs$(1)=" * THEN LET r$=r$(2 TO): GOTO 2150 

2130 BEEP .2,47: BEEP .35,31: BEEP .4,37 


21490 INPUT (tanteo;” "5n$(1)3TAB(9);d$;" dardo; ");rs 
z150 IF r$="" THEN RETURN 
2160 IF r$(1)=" " THEN RETURN 


2170 LET m=1 

2180 1F r$(1)="D" OR r$(1)="X" THEN 
LET m=2: GOTO 2210 

2190 IF r$(1)<>"T" THEN GOTO 2220 

2200 LET m=3 

2210 LET r$ = r$(2 TO) 
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2220 IF rs(1)="B" THEN LET n=25: GOTO 22%0 
2230 LET n = CODE rs - 48 

2240 IF nO OR n>92 THEM GOTO 2130 
2250 LET $ = rel2 TO) 

2260 LET n2 = CODE rs - 48 

2270 IF n2%0 OR n2>9 THEN GOTAa 2300 
2280 LET n = 10O%n + n2 

2290 LET r$ = rs(2 TO) 

2300 IF rs = "" THEN GOTO 2320 

2310 IF r$(1) <> * * THEN GOTO 2130 
2320 LET tanteo = tanteo + mr 

2330 RETURN 


Veamos cómo se puede mejorar el programa para po- 
der teclear T (de top) en lugar de 20, de modo que DT 
o XT signifique doble top o 40, y TT signifique triple top 
o 60. Si queremos procesar T de la misma manera que B, 
podemos añadir 


2225 IF r$(1)="T" THEN LET n=20: GOTO 2290 


pero eso, por sí solo, no basta: si la cadena de entrada 
consiste simplemente en «T» de top, la comprobación de 
la línea 2190 la interpretará como «triple» y esperará que 
vaya seguido de un número o de B o de T. En la línea 
2240 el programa comprueba que no es así, y «se queja». 
He aquí un ejemplo del adagio que dice: «una mejora es 
un cambio en el programa como consecuencia del cual 
deja de funcionar bien». Es necesario añadir: 


2195 IF CODE rs$(2 TO ) <: 48 THEN LET n=20: 
GOaTa 2290 


donde suponemos que T significa «top» si se halla al fi- 
nal de la cadena o seguido de un espacio en blanco, y «tri- 
ple» si va seguido de una letra o de un dígito. 

El programa, tal y como está escrito aquí, no realiza 
una comprobación exhaustiva de errores. Entre los que 
se podrían deslizar están: otros caracteres en la cadena 
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R$ después de leer el tercer dardo, y puntuaciones no vá- 
lidas como por ejemplo 23 6 77 6 T25 ó X99. 

A continuación damos algunas sugerencias para mejo- 
rar el programa: 

a) Advertir cuándo uno de los jugadores gana con el 
primer o el segundo dardo; 

b) Advertir cuándo uno de los jugadores se pasa (es 
decir, reduce la puntuación que le queda a 1 o a un nú- 
mero negativo) con su primer o segundo dardo, y no pe- 
dir en ese caso la puntuación de los restantes dardos; 

c) No permitir que un jugador gane a menos que su 
último dardo consiga un doble; un sencillo o un triple 
que reduzca la puntuación a cero cuenta como «bust»; 

d) Si los puntos que quedan son 50, 40, 38, 36, 

2, indicarlo como X25, X20, X19, X18, ... X1 para mos- 
trar que es posible finalizar con un solo lanzamiento; 

e) Mostrar los puntos que quedan por conseguir des- 
pués de cada dardo, a menos que sean más de 170. 


Mabh-jongg 


Otro juego que exige bastantes cálculos aritméticos 
para llevar el tanteo es el mah-jongg. Se trata de un juego 
para cuatro jugadores, que en muchos aspectos se parece 
a la canasta, pero que no se juega con naipes sino con fi- 
chas de bambú o de marfil o bien de plástico (que es lo 
más corriente hoy día). Cada mano termina cuando gana 
uno de los jugadores o cuando se acaban las fichas. En 
este último caso no se tantea; en los demás casos los cua- 
tro jugadores cuentan el valor de las combinaciones de fi- 
chas que tienen en sus manos: cada jugador recibe de to- 
dos los demás el valor de su mano, exceptuando al gana- 
dor, que no paga a nadie. Además, el jugador «viento del 
Este» paga y cobra doble. 
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Supongamos, por ejemplo, que el jugador A gana con 
una puntuación de 22, B tantea 48, C es viento del Este 
y puntúa 4 y D puntúa 6. En ese caso A recibe 22 de B, 
44 de C y 22 de D, y (por ser el ganador de esta mano) 
no paga a nadie, por lo cual obtiene una ganancia limpia 
de 88; B recibe 96 de C y 48 de D y paga 22aA,8aC 
y 6 a D, y obtiene así unas ganancias netas de 108; C re- 
cibe 8 de B y 8 de D, y paga 442A,9%aB y 12aD, 
con unas pérdidas netas de 136; y D recibe 6 de B y 12 
de C, y paga 222 A, 48 a B y 8 a C, con unas pérdidas 
netas de 60. Mientras el anotador hace todos estos cálcu- 
los, los otros tres jugadores «construyen la muralla», es 
decir disponen las fichas para la mano siguiente. 

El programa que damos a continuación lleva el tanteo 
del juego. Si el jugador que es «viento del Este» gana la 
mano, vuelve a ser «viento del Este» la siguiente vez; en 
caso contrario el «viento del Este» pasa al siguiente ju* 
gador. La presentación visual muestra qué viento le co- 
rresponde a cada jugador, indicándolo con el nombre y 
con su número, y coloca un asterisco en el jugador que 
es «viento de la ronda». (El número sirve para tantear las 
flores y las estaciones; si el juego que uno tiene en casa 
no tiene numeradas las flores y las estaciones, quizá sea 
conveniente poner sus nombres en pantalla encima de los 
nombres de los vientos. El hecho de que el viento de la 
ronda corresponda a uno u otro jugador tiene efectos me- 
nores en el tanteo.) Debajo del nombre de los jugadores 
el programa muestra las puntuaciones de la mano más re- 
ciente (con un asterisco junto a la puntuación del gana- 
dor) y el número total de puntos de cada jugador. El que 
estos números representen pesetas u otro valor depende 
ya de las apuestas establecidas previamente. 


10 REM marcador del juego Mah-jongg 
20 DIN n$(4,7);: DIM n(9): REI nombre de los jugadores 
30 DIM s(9): REM tarteo de urna mano 
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490 

50 

60 

70 
100 
110 
120 
130 
140 
150 
160 
200 
210 
220 


230 
240 
250 
260 
270 
300 
310 
320 
330 
400 
410 
420 
430 
440 
500 


s10 
520 
530 
590 
550 
560 
570 
580 
"590 
500 
ól0 
700 
710 
720 
730 
740 
750 
760 
770 
200 
810 
820 
z2000 
2010 
2020 


DIM t(9): REM tanteo total 

DIM $(9,5): REM vientos 

LET ns(1)= "Este ": LET m$(2)="Sur ” 
LET H$(3)= "Oeste": LET vm$(9)="HNorte"” 
FOR i=1 TO 4 


INPUT ("nombre del jugador: viento "3jwWn$(1)5"7? "js% 
LET n$(1) = s$: LET n(i1) = LEN ss 

MEXT ii 

LET viento e = 1: REN jugador que es viento Este 
LET viento r = 1; REM viento de la ronda 

LET ganador = OQ; REN jugador ganador, O si no lo es 


REM aqui para empezar cada mano 
GOSUB 2000: GOSUB 2300 
INPUT "Vencedor? (número del vencedor”, 
"o cero si no hay vencedor) ";jganador 
LET 3anador = 1INT(ganador+0.5) 
IF 3arador<O OR ganador>39 THEN GOTO 220 
IF 3anador=0 THEN GOTO 2700 
LET ganador = ganador + viento e - 1 
IF 3arnador>94 THEN LET ganador=3anador-4 
FOR i= 1 TO 49 
INPUT ("puntos de "¿jn$(1,TO n(i))5"”? ")5 s(i) 
LET s(i) = INT (s(i) + 0.5) 
MEXT di 
REM visualiza el tanteo pará comprobar 
GOSUB 2000: GOSUB 2200 
INPUT "Tanteo correcto? (S/N) "zjrs 
IF r$e="N" OR r$="n" THEN GOTO 220 
IF r$<>"S” AND rg$<>"s" THEN GOTO 420 
REN aquí si es correcto, muestra nuevos 
totales, etc. 
FOR i=1 TO 3 
FOR j¡=i+1 TO 4 
REM muestra lo que j paga a li 
LET p = s(i)-s(j) 


IF i = ganador THEN LET p = s(i) 

IF jj = ganador THEN LET p = -s(j) 

IF i = viento e OR jj = viento e THEN LET p = 2Xp 
LET t(1) = t(1) + p 

LET t(j) = t(j) - p 

NEXT j , 

NEXT 1 


REM ver sí cambian los vientos 
IF ganador = viento e THEN GOTO 800 
LET viento e = viento e + 1 
IF viento e <= 9 THEN GOTO 800 

REM fin de la ronda 


LET viento e = 1 
LET viento r = viento r + 1 
IF viento r > 9 THEN LET viento r = 1 


REN muestra las ruevas posiciones 
GOSUB 2000: GOSUB 2200: GOSUB 2300 


GATO 220 
REM escribe cabeceras del tanteador: 
cLS 


FOR i=1 TO 43 
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2030 LET j = i - viento e + 1: 1F ¡<1 THEM LET j=j+9 
2090 LET fs=" ": IF j = viento r THEN LET f$="xX" 
2050 PRIMT ¿5 £%3 wWs(j)j "o"; 


2060 NEXT i 
2070 PRINT: PRINT 


2100 REM nombres 
2110 FOR í=1 TO 4 
2120 PRINT ns$(1)3 *” "5 


2130 MEXT i 
21390 PRINT: PRINT 
2150 RETURN 


z200 REM escribe el tanteo de la última mano 
2210 FOR i = 1 to 9 

2220 LET $$= *" ": IFi=ganador THEN LET fs$="X" 
2230 LET v%$ = STR% s(i) 

z2490 PRINT " "(LEN vs TO 5)3 vS3 +85 ”* “5 


2250 NEXT i 

2260 PRINMT:; PRINT 

2270  RETURMH 

2300 REN escribe el tanteo total 

2310 FOR i=1 to 4 

2320 LET vs = STR% t(i) 

2330 IF v$(1) > "O" THEN LET v$ = “+” + ys 
23390 PRINT ” "(LEN vé TO 6)3 vs; * “; 
2350 NEXT 1 

2360 PRINT: PRINT 

2370 RETURN 


Una vez sumadas las puntuaciones de las distintas ma- 
nos, lo único que tiene que hacer la persona encargada 
del tanteo es introducirlas en el ordenador, que se encar- 
ga de realizar todos los cálculos aritméticos. La persona 
que apunta no tiene ya excusa para no ayudar a construir 
la muralla. 

De la misma manera que mejoramos el programa de 
los dardos para poder introducir uno por uno los tantos 
conseguidos por cada dardo, es posible adaptar este pro- 
grama para introducir por separado los distintos pungs, 
kongs, flores, estaciones, etc. La cantidad de detalles que 
tendría que teclear la persona que lleva el tanteo para rea- 
lizar bien esta tarea es tan grande que probablemente no 
valga la pena, sobre todo si se tiene en cuenta que el ZX 
BASIC permite introducir números de la forma 


(9+9+8+16+20) 2X2 
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si no se quiere efectuar a mano las sumas y las multipli- 
caciones por dos. 

Técnicas parecidas sirven para escribir un programa 
que lleve el tanteo en el bridge. En el rubber bridge, por 
ejemplo, el programa debe preguntar por el contrato (qué 
pareja de jugadores, palo, número de bazas, si se ha do- 
blado) y después por el número de bazas que se han he- 
cho realmente; a partir de ahí es muy fácil calcular el tan- 
teo, con cuidado de llevar por separado los puntos por 
debajo y por encima del contrato. El programa tiene que 
pever también la adición de puntuaciones extraordinarias, 
por ejemplo honores. Debe llevar la cuenta de qué pareja 
de jugadores es vulnerable y de cuándo se ha ganado un 
rubber, mostrándolo además en pantalla. 


Capítulo 12 
Juegos de tablero y otros juegos para dos personas 


Existen muchos juegos en los cuales dos personas jue- 
gan por turno, sobre un tablero o cualquier otro medio 
que sirva para mostrar la situación de la partida. En este 
capítulo nos ocuparemos concretamente de juegos en los 
cuales el resultado depende solamente de la elección de 
movimientos que hagan los jugadores; entre ellos figuran 
no sólo los Juegos de tablero como el ajedrez y las damas 
sino también juegos como el nim, que no requieren nin- 
gún tablero especial ni piezas de un tipo determinado. Al 
final del capítulo mencionamos brevemente los juegos en 
los que intervienen elementos de azar, como tirar un dado 
o volver una carta de un mazo. 

El «tres en raya» es un juego suficientemente simple 
para ejemplificar los principios pertinentes sin necesidad 
de emplear un programa demasiado largo. El siguiente 
programa (escrito para el Spectrum, pero fácilmente 
adaptable al ZX81) permite jugar a tres en raya sin utili- 
zar lápiz ni papel. 
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500 REM tres en raya 
550 REM define el gráfico de la A 
para ser igual que en el ZX81 
560 FOR ji = USR "a" TO USR "a"+6 STEP 2 
570 POKE i, BIN 1010/1010; POKE i+1, 
BIN O101010/1:NEXT i 
700 REM dibuja el tablero 
710  CL5 
720 FOR i = 5 TO 15 
730 FOR j = 8 TO 12 STEP 4 
740 PRINT AT 1,j+53 "A"j AT j,it+5j "A" 
750 MEXT ¿2 NEXT i 
760 PRINT AT 3,113”1 2 3" 
770 PRIMT AT 6,83 "a"jAT 10,83 "b”; 
AT 139,8; "c” 
800 DIM b$(3,3): REM matriz del tablero 
810 LET ¡ugadas = O: REN número movimientos hechos 
820 LET p% = "X": REM jugador cuyo movimiento es ese 
e00 REM empieza el juego 
910 IMPUT (ps$)3" mueve: "5pr% 
920 IF LEN m$<>2 THEN GOTO 910 
930 LET x=1: LET y=2 
940 IF m*(1)<="3"” THEN LET x=2: LET y=1 


950 LET i= CODE m$(x) - CODE "A" + 1 
60 1F ¡>3 THEN LET i = i - (CODE "a" - CODE "A”) 
970 LET j¡ = CODE m$(y) - CODE "O" 


980 IF íi<1 OR 1>3 THEN GOTO 910 
990 IF ¡<1í OR j¡j>3 THEM GOTO 910 
1000 IF bD$(1,j) <> ”" " THEN GOTO 210 


1010. LET b$(1,j) = ps$ 

1020 LET jugadas = jugadas + 1 

1400 REM muestra el movimiento en el tablero 
1410 PRINT AT 2+9Xi,7+3Xjj; ps 

1500 REM comprueba si se gana 

1505 REM revisa filas 


1510 FOR n=1 TO 3; FOR m=1 TO 3 

1520 IF bD$(ri,m) <> p$ THEN GOTO 1550 

1530 NEXT 1m 

1540 GOTO 17390 

1550 —HEXT n 

1560 REM revisa columnas 

1570 FOR n=1 TO 3: FOR m=1 TO 3 

1580 IF b$im,n) <> ps THEN GOTO 1610 

1590 NEXT m : 

1600 GOTO 1730 

1610 MEXT n 

1620 REN revisa diagonales 

130 IF b$(1,1)=p% AND b$(2,2)=p$ AND b$(3,3)=ps%$ 
THEN GOTO 1720 

1690 IF b$(1,3)=p% AND b$(2,2)=p% AND b$(3,1)=p3s 
THEN GOTO 1700 

1650 LET ps = CHR*$É(CODE *X" + CODE "O" -CODE ps) 

1660 IF jugadas<9 THEN GOTO 900 

1570 PRINT AT 21,0; "juego empatado” 

1óé80 GOTO 1820 


1700 REM marcar la linea del vencedor 
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1710 PLOT 84,52: DRAW 80,80: GOTO 1800 

1720 PLOT 84,132: DRAW 80,-80: GOTO 1800 
1730 PLOT 60+32%*r,132: DRAW 0,-80: GOTO 1800 
1740 PLOT 84,156-32X*Xn: DRAW 80,0 


1800 REM aqui cuando se gana el juego 
1810 PRINT AT 21,03 p*3 " gana” 
1820 INPUT "Otra partida? (S/N) "jas 


1830 IF as="S" OR a$="s" THEN GOTO 700 
1840 IF a$<>"n" AND a$<>"N" THEN GOTO 1820 


/ 

Las Aes de la línea 740 están cambiadas a modo gráfi- 
co (graphics shift); al pasar el programa se verá que se 
han transformado en cuadrados grises. La cadena de ca- 
racteres en la línea 760 tiene tres espacios entre el 1 y el 
2, y otros tres entre el 2 y el 3. 

¿Los movimientos de los jugadores se introducen en la 
forma de una letra y un dígito, que constituyen las «coor- 
denadas» de la casilla en la que se quiere colocar el sím- 
bolo. La letra y el dígito pueden introducirse en cualquier 
orden, y se pueden utilizar indistintamente mayúsculas o 
minúsculas: por ejemplo, la casilla derecha de la fila cen- 
tral cabe identificarla como B3 ó b3 ó 3B ó 3b. El pro- 
grama debe explicárselo al usuario si éste utiliza un for- 
mato incorrecto, de modo que las líneas 920, 980, 990 y 
1000 no deben saltar directamente a 910 sin generar pri- 
mero un mensaje adecuado. 

El estado del juego se almacena en la matriz b$, que 
tiene un elemento para cada una de las nueve casillas del 
retículo 3X 3. Cada elemento contiene o bien «X>» o bien 
«O» o bien un espacio en blanco. Hacer un movimiento 
consiste en escribir el símbolo que sea en el elemento de 
b$ elegido; después de cada movimiento se comprueba si 
el jugador que ha movido ha ganado; si no ha ganado, 
pasa a mover el contrario. 

Aunque esta forma de almacenar el estado del juego 
puede parecer evidente, no es ni mucho menos la única. 
Hagamos los siguientes cambios en el programa, aña- 


diendo 
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600 REM define el valor de cada casilla 
610 DATA 1349449, 3160, 16339 

620 DATA 1040, 436%, 16400 

630 DATA 1029, 4100, 16634 

630 —DIMH v(3,3) 

ó50 FOR i=1 TO 3: FOR j=1 TO 3 

$60 READ v(i,j) 

670 MEXT j: NEXT i 


sustituyendo las líneas 800 y 910 por 


800 DIM m(2,5): REM movimientos realizados 

810 LET movimiento = 1: REM núm. movimiento en curso 
890 REM los movimentos son p=1 para X, p=2 para O 
900 FOR p=1 TO 2 

910 INPUT "XO"(p)3 " mueve: “;3m% 


y sustituyendo las líneas 1000 a 1810 por 


1000 LET k = v(1,j3) 

1010 FOR n = 1 TO movimiento 

1020 IF mí1,n)=k OR m(2,n)=k THEN GOTO 910 
1030 NEXT n 


10940 LET m(p,movimento) = k 

1300 REM muestra la jugada en el tablero 
1410  PRINT AT 2+9*X1, 2+49Xj3 "XO” (p) 

1500 REM comprueba si se gana (3 en fila) 


1510 LET s=0 

1520 FOR i= 1 TO movimiento 

1530 LET 5 = 5 € mí(p,1) 

1590 NEXT i 

1550 FOR í=1 TO 8 

1560 LET k = INT (5/43) 

1570 IF s-kXx9 = 3 THEN GOTO 1750 

1580 LET s = k 

1590 MHEXT 3 

1600 IF movimiento=5 THEN PRINT AT 21,0; "juego empatado”: 
GOTO 1820 

1610 NEXT p 


1620 LET movimiento = movimiento + 1 
1630 GOTO 900 

1700 REM marcar la linea del vencedor 
1711 DATA 84, 52, 80, ga 

1712 DATA 84, 60, 80, o 

1713 DATA 84, 92, 80, o 

1714 DATA 849, 124, 80, e) 


1715 DATA 84, 132, 80, -80 
1716 DATA 92, 132, Oo, -80 
1717 DATA 123, 132, O, -80 
1718 DATA 156, 132, O, -80 
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1750 RESTORE 1710+1 

1760 READ x,y,dx,dy 

1770 PLOT x,y!: DRAW dx, dy 

1800 REM aqui cuando se gana el juego 
1810 PRINT AT 21,0; "XO”"(p)3 " gana" 


Aunque el nuevo programa se comporta exactamente 
igual que antes en lo que afecta al usuario, la manera en 
que almacena el estado del juego es muy distinta. En lu- 
gar de llevar un registro del símbolo que hay en cada ca- 
silla, lleva la cuenta de los movimientos que se han efec-' 
tuado; además, utiliza un conjunto de números bastante 
peculiar para representar las nueve posibles casillas en las 
que cada jugador puede colocar el símbolo correspon- 
diente. 

Hay ocho «hileras» de tres en raya: tres horizontales, 
tres verticales y dos diagonales. El número de símbolos 
que un jugador puede tener en cualquier hilera dada pue- 
de ser 0, 1,26 3. A las ocho rayas les asignamos valores, 
de tal forma que cada uno de ellos sea el anterior multi- 
plicado por cuatro: 1, 4, 16, 64, 256, 1024, 4096 y 16348; 
y decidimos asignarlos en el siguiente orden (que es 
arbitrario): 


1 diagonal del ángulo inferior izquierdo al 
superior derecho 
4 línea horizontal inferior 
16 línea horizontal central 
64 línea horizontal superior 
256 diagonal del ángulo superior izquierdo al 
inferior derecho 
1024 línea vertical izquierda 
4096 línea vertical central 
16384 línea vertical derecha 


El valor de cada casilla es la suma de los valores de to- 
das las líneas en que aparece: así, la casilla superior iz- 
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quierda tiene el valor 644+256+1024 y la casilla central 
de la fila inferior, 4+ 4096. A continuación damos el dia- 


grama completo. 


1024 
28 ¡ 
64 1344 
16> 1040 
4=s 1029 

1 > 


4369 


4100 


16400 


16644 


Obsérvese que en lugar de limitarnos a cargar los va- 
lores en v con ayuda del comando READ podríamos ha- 
berlos calculado mediante 


600 REM establece el valor de cada casilla 


ó6l0 DIM v(3,3) 


620 LET v(3,1)=1: 
630 LET j¡=4: FOR 1i=3 TO 1 STEP -1 
640 FOR n=1 TQ 3: 


LET v(2,2)=1: 


LET v(i,n)=v(i,n)+j: 


650 LET j=j%X97? NEXT i 


660 FOR n=1 TO 3: 
670 FOR i=1 TO 3: 
680 FOR n=1 TQ 3: 


690 NEXT i 


LET vín,n)=v1n,n)+j: 


LET j=jx*9 


LET vín, i)=vIn, 1)+j5: 


LET v(1,3)=1 


MEXT n 


NEXT n 


MEXT n 


En la línea 1000 del nuevo programa almacenamos en 
k el valor de la casilla que ha elegido el jugador, para des- 
pués comprobar (líneas 1010 a 1030) si alguno de los dos 
jugadores ha utilizado ya dicha casilla. Si no es así, el mo- 
vimiento es válido y se añade al registro de movimientos 


y a la imagen. 


En el programa primitivo, el código para comprobar si 
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se ha conseguido o no hacer tres en raya es muy directo: 
para cada fila, columna y diagonal se comprueba si las 
tres casillas contienen el símbolo del jugador que acaba 
de jugar. 

El código utilizado en el nuevo programa es más bre- 
ve, pero en cambio deja entrever peor lo que está suce- 
diendo. Primero sumamos todos los movimientos que ha 
realizado el jugador: las líneas 1510 a 1540 dan a s un va- 
lor igual al total. Luego dividimos repetidamente este to- 
tal entre cuatro; k es el cociente y s—k*4 es el resto, de 
manera que la línea 1570 comprueba en cada caso si el res- 
to es 3. Recuérdese que s es el total de las puntuaciones 
de todas las casillas en que aparece el símbolo del juga- 
dor, y cada casilla puntúa 1 si se halla en la diagonal «án- 
gulo inferior izquierdo/ángulo superior derecho», 4 si 
pertenece a la fila inferior, 16 si a la fila central, etc. To- 
das las puntuaciones menos la de la diagonal son múlti- 
plos de 4; todas menos ésa y la de la fila inferior son múl- 
tiplos de 16, y así sucesivamente. 

Por consiguiente, la primera vez que el programa di- 
vide s entre 4, el resto es el número de movimientos que 
se han hecho en la diagonal ángulo-inferior-zquierdo/án- 
gulo-superior-derecho. Si ese número es 3, entonces el ju- 
gador ha ocupado las tres casillas de la diagonal y ha ga- 
nado; las líneas 1750 a 1770 leen las coordenadas de la rec- 
ta que pasa por esa diagonal (de la línea 1711) y la dibu- 
jan. Obsérvese que el jugador no puede marcar más de 
tres casillas a lo largo de la diagonal y por tanto no pue- 
de acumular suficientes unos para «acarrear» un 4. 

Si el primer resto no es 3, s recibe un valor equivalente 
a un cuarto de su valor anterior; es decir, la fila inferior 
puntúa ahora 1, la central 4, la superior 16, y así sucesi- 
vamente. La diagonal de la que ya nos hemos ocupado 
no puntúa ahora para nada. En su segunda pasada por la 
línea 1570 el programa mira cuál es el resto de dividir 
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este nuevo s por 4, es decir, mira el número de casillas 
ocupadas en la fila inferior. Al igual que antes, si el resto 
es 3 saltamos a la línea 1750 para dibujar la raya ganado- 
ra. Esta vez 1 es igual a 2, de modo que los datos (DATA) 
se toman de la línea 1712. 

En cada pasada del bucle se hace el recuento de las ca- 
sillas ocupadas en una «raya», y así hasta haber exami- 
nado las ocho. Si una de ellas resulta tener las tres casi- 
llas ocupadas por el jugador, la partida está ganada y el 
programa dibuja, en la línea 1.770, la raya ganadora. 


El ordenador como adversario 


Una vez que se ha programado el ordenador para que 
realice los movimientos que se le dictan y reconozca 
cuándo ha ganado uno de los jugadores, el siguiente paso 
consiste en hacer que el programa pueda jugar contra el 
usuario. Por ejemplo, cabría añadir lo siguiente al pro- 
grama de tres en raya: 


590 LET auto=2 


905 IF p=auto THEN GOTO 1100 


1050 GOTO 13900 


1100 REN mueve el ordenador 
1110 LET i = INT (RND %*X 3) 
1120 LET j = INT (RND %*X 3) 


1130 GOTO 1000 


y modificar la línea 1020 para saltar a la línea 905 en lu- 
gar de a la 910 si la casilla está ya ocupada. La línea 590 
determina que el programa va a mover en segundo lugar; 
el usuario quizá prefiera poner un 1 y hacer que el pro- 
grama haga el movimiento inicial, o que éste consulte pre- 
viamente si se quiere que el programa realice el movi- 
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miento inicial (a4to=1) o que juegue el segundo (anto=2) 
o que no juegue (auto=0). 

En esta versión, los movimientos del programa son pu- 
ramente aleatorios: busca al azar una casilla hasta encon- 
trar alguna que no esté ocupada, y no hace ningún inten- 
to de conseguir tres en raya. Si un jugador ocupa dos ca- 
sillas en raya y la tercera está libre, el adversario debe ocu- 
par esa tercera casilla; el programa, por el contrario, tie- 
ne las mismas probabilidades de ocupar cualquier otra de 
las casillas y dejar que gane el adversario. En resumen, 
no hace ningún intento de ganar el juego, ni siquiera de 
defenderse cuando está perdiendo. Eso le convierte en un 
contrincante bastante poco satisfactorio, por ser dema- 
siado fácil de vencer. 

Para hacer que el programa busque «dos en raya» (don- 
de s—k*4 =2) se puede utilizar una técnica parecida a la 
de las líneas 1.510 a 1.590: buscar primero un hilera en 
la que se puede hacer un movimiento ganador (es decir, 
un movimiento en el que el ordenador puntúe 2 y el usua- 
rio 0) y luego otra hilera en la que el usuario podría ha- 
cer un movimiento ganador si no se lo impide la máqui- 
na (una línea en la que el usuario puntúa 2 y la máquina 
0). Si la máquina no encuentra una línea de esas caracte- 
rísticas, hará un movimiento al azar; pero solamente en 
ese caso. Una vez que el programa ha decidido en qué 
fila va a mover, tiene que decidir en qué casilla: después 


de 


LET k = INT (v(i,j) / n) / 4 


el valor de 


Kk <> INT k 


será verdadero si la casilla (2,¡) se halla en la fila, columna 
o diagonal que puntúa n, y falsa en caso contrario; el pro- 
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grama no tardará mucho en ir ensayando todas las casi- 
llas no ocupadas hasta encontrar la correcta. 

En esas condiciones es verdad que el programa no ju- 
garía como un idiota integral, pero cualquier persona le 
ganaría bastante a menudo; la máquina sólo ganaría si el 
jugador humano fuese un despistado y además tuviera 
mala suerte. 

Para que el programa adquiera un nivel de juego más 
alto tiene que ser capaz de prever qué movimientos son 
posibles a partir de las posiciones a que conducirían sus 
movimientos. Consideremos por ejemplo la siguiente po- 
sición, en la que le toca mover al jugador que utiliza como 
símbolo «O»; las casillas está numeradas de la misma ma- 
nera que en el programa: 


l 2 3 
a | O) 
o A 
b LX ] 
e o.oo- A 
Cc X 1] | 


Si juegan en la casilla Lb1, X podrá mover entonces en 
la c3 y llegar a la posición 


| p.0 
A Jero 
A A A 
A A A 
X 1 p XxX 


a partir de la cual X puede ganar, porque puede hacer 
tres en raya moviendo en al o en c2; si O bloquea una 
de ellas moviendo en a1, por ejemplo, X puede mover en 
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c2 y ganar, antes de que O tenga la oportunidad de com- 
pletar una línea en la fila a. 

Así pues, aunque el programa que acabamos de descu- 
brir no consideraria la jugada en b1 como un movimien- 
to perdedor, vemos que si O hace este movimiento per- 
derá, a menos que su adversario sea muy despistado. Es 
más, de los seis movimientos posibles que se pueden ha- 
cer en esa posición, cuatro (42,b1,b3,c2) son movimien- 
tos perdedores, de manera que en dicha posición el juga- 
dor «X>» tiene una probabilidad de 2 contra 1 de vencer 
al ordenador. 

(Si la primera jugada la hacemos en el centro, el pro- 
grama tendrá que elegir una de las cuatro esquinas, como 
a3, o bien una de las casillas centrales de los bordes, como 
a2. En el primer caso, como ya hemos visto, podremos 
ganar dos de cada tres partidas sin más que marcar la es- 
quina opuesta; en el segundo caso podemos ganar siem- 
pre, jugando en cualquier casilla menos en la opuesta: si 
el programa ha movido en 42 podemos ganar marcando 
cualquier casilla menos la c2. Como el programa juega 
aleatoriamente, si comenzamos sistemáticamente en la ca- 
silla central tenemos que, por término medio, en tres de 
cada seis juegos el programa marcará una de las esquinas, 
y de esos tres juegos le ganaremos dos; en las tres parti- 
das restantes marcará en la casilla central de un borde, y 
todas ellas las ganaremos. Así pues, ganaríamos cinco de 
cada seis partidas por término medio, de manera que la 
probabilidad de ganar es de 5 contra 1.) 

Para que el programa puede encontrar el «mejor» mo- 
vimiento en cualquier posición tiene que estar en condi- 
ciones de asignar un valor a cada movimiento posible y 
poseer criterios objetivos para calcular dicho valor. En la 
práctica se habla indistintamente de «valor de un movi- 
miento» y «valor de una posición»: el valor de un movi- 
miento es lo mismo que el valor de la posición que re- . 
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sulta de aquél. En muchos juegos bipersonales, entre ellos 
el «tres en raya», los valores posibles son simplemente 
«ganar», «empatar» y «perder», que a menudo se repre- 
sentan como 1, o y —1. (En otros juegos puede que im- 
porte, no ya el mero hecho de ganar O perder, sino tam- 
bién por qué margen; puede ocurrir que uno tenga que 
elegir entre tres movimientos, todos ellos perdedores; 
pero si con uno de ellos perdemos 100 pesetas y con los 
otros dos 500, elegiremos el de 100.) 

La regla que utiliza un programa para hallar el valor 
de una posición (excepto los finales de juego, cuyo valor 
conocemos sin necesidad de mayores complicaciones) es 
la siguiente: el valor de una posición para el jugador que 
le toca mover es el mayor de los valores de los movi- 
mientos que puede hacer. 

Es decir, si nos toca mover y disponemos de un mo- 
vimiento ganador, entonces nos hallamos en una posición 
ganadora aun en el caso de que dispongamos de muchos 
otros movimientos que no ganan. Como es lógico, la si- 
tuación es justamente la contraria para el adversario: con 
que exista un solo movimiento que le haga perder, la po- 
sición es perdedora para él (aunque siempre le cabrá la es- 
peranza de que uno no logre dar con esa jugada crítica). 

La estructura básica de una rutina capaz de hallar de 
este modo el valor de una posición es la siguiente: 


definir «valor de (p)» como: 


Si final de partida entonces [calcular valor di- 
rectamente] 


Si no: let v = valor peor posible para el que mueve 
sea q, sucesivamente, cada una de las posicio- 
nes que resultan de sus movimientos 
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para cada q, sea v2 = valor de (q), y si v2 es 
mejor que v entonces sea v = v2 


una vez considerados todos los movimientos, 
el valor es v. 


Al tratar de ejecutar esta rutina en BASIC surgen dos 
problemas capitales. En primer lugar, la rutina es «recur- 
siva», lo cual quiere decir que está definida en función de 
sí misma. Pensemos en una posición pl a partir de la cual 
podemos pasar, mediante un solo movimiento, a p2, p3 
o p4, y supongamos que p2 es una posición empate (al 
final del juego) mientras que p3 es una posición (no ter- 
minal) que resulta ser perdedora. Al calcular valor de 
(p3), la variable v se utiliza para almacenar «valor del me- 
jor movimiento desde p3 encontrado hasta ahora» (en este 
caso «perder»); pero no debemos reescribir la variable v 
que tiene almacenado «valor del mejor movimiento des- 
de p1 encontrado hasta ahora» (que en este caso es «em- 
patar»). Los lenguajes «estructurados en bloques», como 
el Algol y el Pascal, resuelven este problema de una ma- 
nera más o menos automática, pero en BASIC hay que 
preverlo específicamente en el programa. 

En segundo lugar, esta pequeña rutina de aspecto tan 
inocente puede llegar a consumir una cantidad enorme de 
tiempo. Pensemos en el primer movimiento de una par- 
tida de tres en raya: hay nueve movimientos posibles, de 
manera que para cada uno de ellos hay que hacer una lla- 
mada a la rutina. Dentro de cada una de esas nueve lla- 
madas hay que volver a llamarla para cada uno de los 
ocho movimientos posibles del segundo jugador, lo que 
hace un total de 9x8 ó 72. Dentro de cada una de esas 
72 llamadas hay que volver a llamar a la rutina una vez 
por cada uno de los siete movimientos que puede hacer 
el primer jugador en su segunda jugada, con un total de 
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72X7 6 504 llamadas en este nivel. Dentro de ellas tene- 
mos 504x6=3.024 llamadas para hallar el valor del se- 
gundo movimiento del segundo jugador, que a su vez dan 
lugar a 15.120 llamadas para hallar el valor del tercer mo- 
vimiento del primer jugador. Dos mil ochocientas ochen- 
ta de éstas corresponderán a posiciones de «final de par- 
tida» en las que gana el primer jugador; pero las 12.240 
restantes dan lugar a nuevas llamadas: se puede demos- 
trar que para cada una de ellas hay un mínimo de 13 y 
un máximo de 64 nuevas llamadas. 

Sumando todas las llamadas de los distintos niveles se 
comprueba que existen como mínimo 177.850 llamadas 
y como máximo 802.090, cada una de las cuales tiene por 
lo menos que comprobar si se ha ganado o no el juego. 
Si tenemos en cuenta que cada una de esas pasadas con- 
sume alrededor de una centésima de segundo, vemos que 
el programa tardaría entre media hora y dos horas en de- 
cidir su primer movimiento. En realidad, el tiempo con- 
sumido por llamada es probable que se acerque más una 
décima de segundo que a una centésima, con lo cual el 
programa podría tardar hasta 20 horas en hacer su pri- 
mer movimiento si es el ordenador el que sale, y 2 horas 
si juega en segundo lugar. 

Hay dos maneras de reducir ese tiempo: evidentemen- 
te interesa mucho reducir el tiempo que se tarda en ave- 
riguar si una posición es o no una ganadora, pero tam- 
bién es indiscutible la necesidad de reducir el número de 
posiciones estudiadas por el programa. 

Dentro de la segunda versión del programa de este ca- 
pítulo, el método utilizado para identificar las posiciones 
ganadoras funciona muy bien en código máquina y en de- 
terminados lenguajes de programación. La razón es que 
el número s que el programa calcula de las líneas 1.510 a 
1.540 se halla almacenado dentro del ordenador en la for- 
ma de una cadena de bits de 16 bits de longitud con 2 
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bits por cada hilera, y en dos o tres operaciones (que ac- 
túan sobre una cadena de bits tomada en bloque) el or- 
denador es capaz de averiguar si existe o no alguna fila 
que tenga el valor 3. En BASIC, por el contrario, tene- 
mos que descomponer s en ocho números, y además te- 
nemos que hacerlo utilizando el operador de «dividir», 
que es uno de los más lentos. 

(El nuevo programa que damos más adelante retiene 
en realidad el antiguo método en la parte encargada de 
efectuar realmente los movimientos. No es estrictamente 
necesario hacerlo, aunque sirve para comprobar que la 
parte del programa que selecciona el movimiento del or- 
denador no está «haciendo trampas». El motivo que nos 
hizo optar por esta solución fue evitar modificar el pro- 
grama más de lo necesario para añadir esa nueva función.) 

El programa que damos más adelante utiliza las si- 
guientes matrices 
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p(9) almacena el contenido de cada una de las casillas, 
con 1 para X, —1 para 0 y cero si está vacía. Las casillas 
están numeradas 1,2,...,9 en lugar de (1,1), (1,2),..., (3,3) 
para ahorrar tiempo. 

w(8) contiene el valor de v (que en esencia es la v que 
aparece en la descripción informal de la rutina anterior) 
en cada «nivel» de llamada. 

n(9) almacena 2, que lleva la cuenta de cuál es el mo- 
vimiento que estamos considerando. 

r(45) consiste en cinco números por cada casilla: es el 
número de la línea (fila, columna o diagonal) a la que per- 
tenece la casilla, seguido de tantos ceros como sea nece- 
sario para completar cinco dígitos (véanse las líneas 2.010 
a 2.090). Al igual que antes, por razones de rapidez se uti- 
liza un subíndice en lugar de dos. 

c(8) cuenta los símbolos en cada línea: 3 si son tes X 
(y X ha ganado); 2 si son dos X (con lo cual X puede ga- 
nar si le toca mover); 1 si es una X, o dos X y un O; 0 
si no hay ningún símbolo; —1 si hay un O, o dos O y 
una X; —2 si dos O; —3 si tres O. 

s(8,3) muestra qué casillas componen cada hilera (tres 
casillas por cada una de las ocho hileras: veánse las líneas 
2.100 a 2.130 del programa). En este caso no supondría 
ninguna ventaja utilizar un solo subíndice. 

La hileras de casillas están en el mismo orden que an- 
teriormente, sólo que numeradas del 1 al 8, de modo que 
1 y 5 son las diagonales, 2, 3 y 4 las filas horizontales, y 
6, 7 y 8 las columnas. 

La rutina ha sido colocada al comienzo del programa 
con el fin de reducir el tiempo consumido por GOTO y 
GOSUB, tal como explicamos en un capítulo anterior. 
Funciona del siguiente modo. 

GOSUB 100 calcula y almacena en v el valor de la po- 
sición después de que el jugador q haya movido en la ca- 
silla 2; q es 1 si el jugador es X, —1 si el jugador es O. 
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El valor es 1 si la posición es ganadora para X, —1 si es 
ganadora para O, cero si es un empate. 

Después de actualizar la matriz p se procede a actuali- 
zar la matriz c. La matriz r ya ha sido cargada con los 
datos de las líneas 2.010 a 2.090. Supongamos, por ejem- 
plo, que ¿=3, de modo que ¡X5—4 = 11; ¡ adoptará el va- 
lor 11, de manera que el programa lee el primero de los 
números cargados por la línea 2.030; y repetimos las lí- 
neas 110 a 130 con r(7) sucesivamente igual a 1, 4 y 8 po- 
que la casilla número 3, que está en el ángulo superior de- 
recho, pertenece a las hileras 1 (diagonal), 4 (fila supe- 
rior) y 8 (columna derecha). Cada vez que actualizamos 
uno de los elementos de c, comprobamos si la hilera con- 
tiene dos o tres de los símbolos del jugador de que se tra- 
te. En la línea 150 identificamos la posición como una vic- 
toria si n es como mínimo 2, lo cual significaría que hay 
un tres en raya o que hay más de una hilera de 2, como 
en la posición siguiente: 


X O | Xx 
roo A 
| Xx] 
amoo A A 
p 0-1] 


donde X acaba de mover: cada una de las dos diagonales 
tiene dos Xs, y si O juega en uno de los ángulos inferio- 
res, X moverá en el otro y ganará. Obsérvese que la fila 
superior sólo puntúa 1 y por tanto no cuenta como una 
hilera de dos Xs. 

Si solamente hay una hilera que puntúa 2, el adversa- 
rio tiene que mover en la tercera casilla de esa hilera; la 
línea 170 averigua qué casilla está todavía libre. Así, des- 
pués de mover X en la siguiente posición 
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E 
eo teo o +o--- 


| | 
ooo ferro oo 


01 | 


O tiene que mover en el ángulo superior derecho, y el 
programa no pierde el tiempo evaluando las otras cinco 
casillas. 

Otra prueba que reduce el número de posiciones a con- 
siderar se encuentra al final de la línea 240, que comprue- 
ba si se ha hallado algún movimiento ganador del juga- 
dor de que se trate; en el caso de que sea así, tenemos 
una posición ganadora para ese jugador y no hace falta 
examinar más movimientos. 

El código que hay que añadir al programa anterior es 
el siguiente. La única línea que sustituye a otra ya exis- 
tente es la 1.040, el resto son añadidos al código anterior. 


10 GOTO 500 


90 REM hace v = valor del movimiento í 
100 LET píí)=q: LET ¡=1Xx5-9: LET n=0 
110 LET k=c(r(j)): LET clr(j))=k+qs 


IF k=q THEN LET n=n+1; LET n2=j 
120 1F k=q+q THEN LET n=2 
130 LET ¡=ií+1: IF r(j)<>0 THEN GOTO 110 
140 IF n=0 THEN GOTO 210. ¡ 
150 '1F n>1 THEN LET v=q: GOTO 320: REM gana 
160 LET ním)=i: LET q=-q: LET m-=m+1:; 
REM movimiento tfurzado del contrario 
170 LET 1=s(rín2),n): IF píi1)<>0 THEN 
LET n=n+1: GOTO 170 
180 GOSUB 100: GOTO 310 
200 REM comprueba todos Jos movimientos contrarios 
210 IF m>7 THEN LET v=0: GOTO 320 
220 LET ním)=1: LET m=m+1: LET w(m)=q:3 
LET q=-q: LET i=1 
230 1F plíi) <> O THEN GOTO 260 
2490 GOSUB 100: IF v=q THEN GOTO 310 
250 1F v=0 THEN LET v(m)=0 
260 LET i=i+1: IF i<10 THEN GOTO 230 
270 LET v=.v (m) 
300 REM ahora v = valorj deshace el movimiento y sale 
310 LET m=m-1: LET q=-q: LET ¡=n(m) 
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LET j=1ixX5-4 
LET círíj))=clr(íj))=q:s LET juj+i: 
IF r(j)>0 THEN GOTO 330 
LET p(1)=0: RETURN 
REM 
REN comienza propiamente el programa 
LET q=0: LET m=0: LET í=0: LET k=0: 
DIM p(9): DIM vm(8): DIN n(9): DIM r(45): 
DIM c(8): DIM s(8,3) 
RESTORE 2000 
FOR n=1 TO 45: READ rín): NEXT n 
FOR i=1 TO 2: FOR n=1 TO 8: READ sín,i): 
NEXT n: NEXT i 
FOR i=USR "a" TO USR "a"+6 STEP 2 
POKE i, BIN 10101010: POKE i+1, BIN O1010101: 
MEXT ií 
LET auto=2 
IF p=auto THEN GOTO 1110 
GOTO 1400 ] 
REM movimiento del ordenador 
LET m=2X*movimiento+p-2: LET q=3-p-p: LET i=1 
FOR n=1 TO 8: IF c1(n)=q+q THEN GOTQ 1230 
NEXT n 
FOR n=1 TO 8: IF c(n)=-q-q THEN GOTO 1230 
NEXT n 
REM evalua cada movimiento posible 
IF p(1)<>0 THEM GOTO 1210 
GOSUB 100; IF v=q THEN ET 12=1: GOTO 1370 
IF v=0 THEN LET iZ2=1 
LET i=i+1: IF ií<10 THEN GOTO 1180 
GOTO 1370 
LET 12="n 
REM movimiento en la fila 12 
IF písti2,1)) <> O THEN LET ¡=i+1: GOTO 1310 
LET ¡i2=s(12,1) 
REM movimiento en la columna 1í2 
LET 1 = INT. ((1242)/3)7: LET j = 12 - 13 + 3 
REM movimiento en casilla (1i,j) 
PRINT AT 2+9%Xi, 7+9%Xj5 "XO" (p) 
LET míp,movimiento) = ví(i,j) 
LET q = 3-p-p 


LET p(í3Xi+j-3) = q 
LET n = 15Xi + 5X*j - 19 
LET k = círin)): LET círin)) = k+q 


LET n=n+1; IF rín) <> O THEN GOTO 1460 


ue están en cada casilla 
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z100 REM casillas entre cada linea (lea más abajo) 
2110 DATA 2, 2,%s1, de. 1,2,3 
2120 DATA 5, 8,5,2, 5, 4,5,6 
2130 DATA 3, 9%,64,3, 9, 7,8,9 


Esta versión (que está escrita para que el ordenador jue- 
gue en segundo lugar) sigue examinando más posiciones 
de lo que es necesario. No reconoce posiciones simétri- 
cas: por ejemplo, si nuestro primer movimiento lo hemos 
hecho en el centro, el programa calcula el valor de mover 
en cada una de las ocho casillas restantes, pese a que to- 
das las casillas de las esquinas, o todas las que ocupan la 
posición central de una fila o columna, tienen que tener 
el mismo valor. Mediante un análisis más cuidadoso de 
cómo están ocupadas las hileras de casillas, el programa 
podría identificar más deprisa las posiciones de empate y 
los movimientos ganadores. 

(Para ganar hace falta tener dos hileras que se corten y 
en cada una de las cuales no haya ningún símbolo del ad- 
versario y uno solo de los propios, no debiendo estar éste 
en la casilla que es común a las dos hileras. Si se da esa 
situación, el movimiento en la casilla que es común a las 
dos hileras es un movimiento ganador, y no hará falta 
considerar otros movimientos. Aquellas posiciones en las 
que ninguno de los jugadores dispone de dos hileras con 
esas características son posiciones de empate. Si el juga- 
dor al que le toca mover no dispone de esas dos hileras 
y el primer movimiento que examinamos es de empate, 
la posición está empatada y no necesitamos examinar los 
demás movimientos, porque sabemos que ninguno de 
ellos puede ganar.) 

El programa tarda varios minutos en realizar su primer 
movimiento; si lo modificáramos para que moviera en 
primer lugar, tardaría aproximadamente nueve veces más. 
Sin embargo, podemos añadir 
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1020 IF m<3 THEN LET i2=5: GOTO 1350 


1360 IF p(i2) <> O THEN LET ¡i2=9: REM sí desde 1020 
con m=2 y casilla 5 ocupada 


de manera que si le toca salir al ordenador comienza siem- 
pre en el centro, y si mueve en segundo lugar juega tam- 
bién en el centro a menos que el primer jugador haya ele- 
gido esa casilla, en cuyo caso opta por una de las esqui- 
nas. Este expediente reduce sustancialmente el tiempo 
que tarda el programa en decidir el primer movimiento. 
Por otro lado, resta bastante importancia a la cuestión de 
la simetría, porque es en las fases iniciales del juego don- 
de suelen darse las posiciones simétricas. 

Al lector quizá le interese saber cuáles son las posicio- 
nes que estudia el programa en sus deliberaciones: pera 
ello basta añadir 


90 LET pos=0 


335 PRINT AT 20,pos+49;3m3: FOR x=3 TO 9% STEP 3: 
PRINT AT x/3+18,pos;j: FOR k=x-2 TO x: 
PRINT ”" * AND p(k)=03 ”O” AND p(k)<O05 
"X" AND p(k)>05: NEXT k: NEXT x: 
PRINT * "3vjp: 
LET pos=postó: IF pos>28 THEN 
LET pos=0; 
PRINT ******:; IF PEEK 23692>12 THEN 
POKE 23692,12 


que imprime la posición, el número de movimientos y el 
valor, antes de volver de cada llamada de la subrutina. Lo 
malo es que también destruye la representación visual del 
tablero e incrementa así el tiempo que tarda en ejecutarse 
el programa. 

Aunque el hecho de almacenar datos adicionales acer- 
ca de la posición puede ayudar a reducir el volumen de 
cálculos, es importante recordar que por un lado ahorra 
trabajo, pero por otro lo crea a fin de mantener esas es- 
tructuras de datos adicionales. Supongamos, por ejemplo, 
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que en lugar de la matriz p, que muestra qué es lo que 
hay en cada casilla, estableciéramos una lista de las casi- 
llas que aún no están ocupadas. En ese caso, en el movi- 
miento octavo o noveno del juego el programa no nece- 
sitaría buscar en p para hallar la casilla o las dos casillas 
que quedan libres. Sin embargo, el esfuerzo de mantener 
la lista sería superior al pequeño trabajo que es necesario 
para realizar los bucles de las líneas 230 y 260, que a fin 
de cuentas es lo que nos ahorraríamos. 

A diferencia de los programas anteriores, que casi nun- 
ca ganaban y a menudo perdían, este último nunca pier- 
de. Como adversario puede que a uno le parezca alta- 
mente insatisfactorio, pero la culpa es del juego, no del 
programa. Entre las posibles'mejoras está la de elegir al 
azar un movimiento de entre todos los posibles (exclu- 
yendo, como es lógico, los movimientos perdedores), en 
lugar del régimen actual que consiste en optar siempre 
por el último que se encuentre; o por ejemplo realizar de 
vez en cuando movimientos al azar que pueden resultar 
ser movimientos perdedores (y hacer así que el ordena- 
dor juegue un poco más como las personas). Otra mane- 
ra de tener en cuenta que está jugando con un adversario 
falible es dar preferencia a aquellos movimientos de los 
que puede resultar una victoria si el oponente comete un 
error; por ejemplo, todos los segundos movimientos de 
X después de 


| ED 
e e e e is 


[O Xx 1 
e teo to o--- 


son de empate; pero si bien es cierto que la mayoría de 
ellos fuerzan más o menos este resultado, el hecho de mo- 
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ver en la esquina inferior izquierda da a O muchas opor- 
tunidades de hacer un movimiento perdedor. 


Otros juegos 


Otros juegos bipersonales, como el ajedrez, el go, las 
damas y othello, se programan básicamente igual. El or- 
denador calcula el valor de los distintos movimientos po- 
sibles utilizando el algoritmo especificado anterioremen- 
te, y es necesario mantener el número de posiciones es- 
tudiadas dentro de unos límites razonables. Las princi- 
pales técnicas que hemos utilizado aquí son: dar un tra- 
tamiento especial a los movimientos de apertura basán- 
donos en la experiencia, en lugar de volver a analizar de 
nuevo cada posición; reconocer cuándo el movimiento de 
un jugador es forzado, y reconocer lo antes posible las 
posiciones ganadoras y de empate. 

Quitando Juegos muy sencillos como el tres en raya, 
también es necesario limitar el número de jugadas pre- 
vistas por el programa. (En el programa anterior, una vez 
eliminados los dos primeros movimientos, la propia lon- 
gitud del juego reducía a seis el número de jugadas a pre- 
ver.) Al llegar al límite, el programa tiene que recurrir a 
alguna otra fórmula para medir el «valor» de una posi- 
ción; en ajedrez puede tenerse entonces en cuenta el nú- 
mero de piezas que cada uno de los jugadores tiene so- 
bre el tablero, qué piezas están atacadas, y el grado de 
control que cada jugador tiene sobre el centro del table- 
ro. El programa tiene que ser algo flexible en la fijación 
de ese límite, a fin de no detenerse a mitad de una se- 
cuencia de capturas o cuando un jugador está en jaque. 

En general hay que contar con que para escribir un 
programa que juegue con cierta competencia a un juego 


ZX Spectrum: Manual del programador 239 


tan complejo como el ajedrez es necesario utilizar un len- 
guaje bastante más eficiente que el ZX BASIC. 
Tratándose de juegos en los que interviene un elemen- 
to de azar, la dosis de previsión que se puede aplicar 
está fuertemente limitada por el hecho de no saber qué 
carta aparecerá después, o qué número va a salir en la si- 
guiente tirada de los dados. Es cierto que el programa 
puede considerar todos los posibles resultados del ele- 
mento aleatorio, pero lo más probable es que el número 
de jugadas a considerar aumente de manera imprensio- 
nante, disminuyendo así la distancia hacia adelante que 
puede estudiar el programa en un tiempo razonable. Por 
tanto, el rendimiento del programa depende mucho más 
de considerar el valor aparente de una posición que de 
considerar los movimientos que se pueden realizar a par- 
tir de él; cuál sea la mejor forma de calcular ese «valor 
aparente» depende mucho del juego de que se trate; es di- 
fícil dar aquí ninguna regla concreta, como no sea reite- 
rar que hay que calcularlo a partir de propiedades numé- 
ricas de la posición, sin incluir ningún criterio subjetivo. 


Capítulo 13 
Movimiento 


La principal limitación para conseguir imágenes en mo- 
vimiento en la pantalla de TV es la lentitud del lenguaje 
ZX BASIC. En la mayoría de los casos hace falta una can- 
tidad de cálculos apreciable para yinerar cada una de las 
imágenes de unos dibujos animados, y es poco realista 
querer hacerlo en 1/25 de segundo aproximadamente, que 
es lo que se necesitaría para producir una imagen que dé 
la sensación de moverse suavemente. 

Hay algunos tipos de presentaciones animadas en las 
que no es necesario modificar la imagen con tanta fre- 
cuencia. Para representar un reloj, por ejemplo, basta con 
cambiar la imagen una vez por segundo: en el manual se 
da un programa (al comienzo del capítulo 19 en el ma- 
nual del ZX381, en el capítulo 18 en el del Spectrum) para 
un reloj con una sola manilla, el segundero; y uno de los 
ejercicios incluidos al final de dicho capítulo propone am- 
pliar el programa para que aparezcan dos manillas más, 
la horaria y el minutero. 
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Para hacernos una idea de la velocidad con que el Spec- 
trum puede dibujar y redibujar cosas vamos a utilizar el 
siguiente programa «jiffy» (un programa «jiffy» es un 
programa breve, escrito rápidamente y de vida delibera- 
damente efímera. Por ese motivo no nos molestamos, por 
ejemplo, en poner títulos a la instrucción INPUT.) 


10 OVER 1 
20  IMPUT k,s 

30 LET n= INT (176/k) - 1 
40 LETm= (n+1) * (k-1) 
50 FOR ¡= s TO 255 STEP s 
60 FOR j¡= O TO m STEP n+1 
70 PLOT i1,j: DRAW O,n 

80 PLOT i-s,j: DRAW O,n 

90 NEXT j 

100 MEXT 4 

110 GOTO 20 


Este programa dibuja una línea en k segmentos y la 
mueve por la pantalla en saltos de s anchuras de pixel de 
cada vez. (También es verdad que, un tanto chapucera- 
mente, deja una línea a cada lado de la pantalla; estas lí- 
neas pueden eliminarse añadiendo 


43 FOR j¡=0 TO m STEP n+1 
45 PLOT 0,j: DRAW O,n 
47 NEXT j 


103 FOR j=0 TO m STEP n+1 
105 PLOT i-s,j: DRAW O,n 
107 NEXT i 


aunque el lector quizá decida que no merece la pena.) 
Si experimentamos un poco con distintos valores de k 

y s podemos ver con qué rapidez (¡o con qué lentitud!) 
es capaz el ordenador de mover las imágenes en pantalla. 
Cuando k es pequeño influye muy poco en la rapidez, 
- porque la mayor parte del tiempo se invierte en dibujar 
la línea. Pero a medida que k se hace más grande adquie- 
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ren mayor importancia otras actividades, como, por 
ejemplo, la de interpretar las órdenes DRAW y PLOT. 
La repercusión de la longitud de la línea cabría investi- 
garla introduciendo (con INPUT) un tercer parámetro, 
llamémoslo /, y sustituyendo » por l en las líneas 60 y 70 
(y en las líneas 45 y 105 caso de haberlas introducido), o 
simplemente sustituyendo n en estas líneas por una 
constante. 

Para el ZX81 se puede utilizar un programa parecido: 


Aquí se vuelve a comprobar que una modificación muy 
pequeña del dibujo requiere una cantidad notable de 
tiempo. Aquí es necesario utilizar el modo SLOW, por- 
que si no no se verá nada hasta finalizar el programa. 


10 SLOW 

20 INPUT k 

30 IMPUT s 

940 LET n = INT (49/k) 

SO LET m=.8"ux%x (k-1) 

60 FOR i =. s TO 63 STEP s 
70 FOR j = O TO m STEP n 


80 PLOT i,j 

90 UMPLOT i-s, j 
100 MHEXT j 

110  MEXT i 

120 GOTO 20 


El siguiente programa para el Spectrum dibuja una fi- 
gura en forma de cerilla que se mueve por la pantalla. 


10 DIM u(7): DIM v(7): REM parámetros para la 
figura en curso 

20 DIM t(7): DIM w»(7): REM parámetros para la 
figura previa 

30 DIM q(7): REM conserva antigua ul) en los 
cálculos 

40 DIM x17): DIM y(7): REN parámetros para la 
primera figura 


100 REM parámetros iniciales 
110 LET x(1) = 90: LET y(1) = 30 
120 LET x(2) = -2.5 X*X SQR 3: LET y(2) = -2.5 


130 LET x(3) -20: LET y(3) = -8 *X x(2) 
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190 LET x(4) = x(1) + x(3):5 
LET y(9) = y(1) + y (3) + 1 
150 LET x(5) = -10: LET y(5S) = 94 XX x (2) 


160 LET x(óá) = -10; LET y(6) = y(5) 

170 LET x17) = 5: LET y(17) = O 

200 REM inicializa la figura previa 

210 FOR i=1 TO 2 

220 LET t(i) = x(i): LET w(1) = y(1) 

230 NMEXT ii 

300 REM establece los coeficientes de rotación 
301 REM los valores de co ss están en grados 


310 LET c3 = COS (PI/60): LET 53 = SIN (PI/60) 
320 LET c49 = COS (P1I/495): LET s4q = SIN (PI/45) 
330 LET cc? = COS (7XPI/180): 
LET 57 = SIN (7XP1/180) 
390 LET c10 = COS (PI/18): LET s10 = SIN (PI/18) 
400 REN ahora dibuja la primera figura 
410 OVER 1 
9420 PLOT x(1)-x(2),y(1)-y(2): DRAW x12),y 12): 
DRAW x(3),y(3) 
9430 DRAW x1(5),y1(5): DRAW x(6),y1(6): 
DRAW x17?),y17) 
490 PLOT x(4),y(9): DRAW 0,490: DRAW 7,-22: 
DRAW 24,3 
450 PLOT x(4),y(94)+90: DRAW 15,15: DRAW -15,15: 
DRAW -15,-15:* DRAW 15,-15: DRAW -7,-25: 
DRAW 23,-7 
500 FOR i=2 TO 2 


510 LET u(i) = x(1): LET v(i) = y(14) 

520 NEXT i 

600 REM aqui dibuja cada figura posterior 

610 FOR i=1 TO 20 

é620 FOR j¡=2 TO 7: LET qíj) = u(j): NEXT j 

700 REM actualiza parámetrros para la siguiente 
figura 

710 IF 1<11 THEN LET u(2) = c3Xu(2) + s3Xkv(12): 
LET v(2) = c3Xv12) - s3%Xq12) 


720 LET u(3)=c3Xxu (3) +s3%Xv32: 
LET v(3)=c3%*v (3) -53%q (3) 


730 LET u(9) = x(1)+u(3): LET v(94) = y(1)+v1(3) 
740 IF i<11 THEN LET u(5) = clO0Xxu(5) - s10Xv(5): 
LET v(5) = c10X*v(5) + s10%q(5) 

750 IF 1>16 THEN LET u(5) = c10Xxu(5S) + s10OXv(5): 
LET v(5) = c10X*v(5) - s10Xqí(5) 

760 JF í<S THEN LET ulté) = c1O0Xxu16) + s10OXv16): 
LET v(6) = c1O0X*v16) - s10*Xq(6) 

770 IF 1>10 THEN LET u(ó6) = c1OXu(ó) - s10Xkv(16): 
LET v(6) = c10X*v(6) + s10Xxq(á) 

780 IF i<11 THEN LET u(7) = c72Xu (7) + s7/Xv17): 
LET v(2) = c7Xv17) - s7X*q(17) 

790 IF 1>10 THEN LET u(?) = c10Xxu(7?) - si10Xv (7): 
LET v17) = c10%v17) + s10%q (7) 

800 REM borra la antigua y dibuja la nueva 


810 PLOT t(1)-t (2), y(1)-vw(2): DRAW t(2), vw(2): 
DRAW t (3), v(3) DRAW t (5), vw(5): 
DRAW t16), vrifó) DRAW t (7), v17) 
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820 PLOT x(1)-u(2), y(1)-v1(2): DRAW ul2), v(2):; 
DRAW u(3), v(3): DRAW ul5), v(5): 
DRAW utó), v(ó6): DRAW ul?7), v1(7) 
830 PLOT t(4), vw(4): DRAW 0,940: DRAW 7,-22:; 
DRAW 24,3 
890 PLOT u(f4), v(4): DRAW 0,90: DRAW 7,-22: 
DRAW 24,3 
850 PLOT t(9), vw(94)+40: DRAW 15,15: DRAW -15,15: 
DRAW -15,-15: DRAW 15,-15: DRAW -7,-25: 
DRAW 23,-7 
860 PLOT u(4), v(4)+40: DRAW 15,15: DRAW -15,15; 
DRAW -15,-15: DRAW 15,-15: DRAW -7,-25: 
DRAW 23,-7 
900 FOR j=2 TO 7 
910 LET t(j) = ulj): LET wíj) = víj) 
920 MEXT j 
930 LET t(1) 
940 MEXT 1 
950 LET x(1) 
960 GOTO 600 


x(1) 


xf1) + 90 


Cada paso o zancada comprende 20 «fotogramas» di- 
ferentes. Las líneas 100 a 340 fijan diversos parámetros y 
calculan los senos y cosenos de los ángulos que se van a 
necesitar (3, 4, 7 y 10 grados) para rotar las diversas par- 
tes de las piernas de un fotograma al siguiente. Las líneas 
400 a 450 dibujan el primer fotograma, y las líneas 600 a 
940 dibujan cada fotograma subsiguiente, borrando cada 
vez el fotograma anterior. Para la cabeza de la figura se 
utiliza una forma romboidal en lugar de una circunferen- 
cia, porque el trazado de esta última lleva mucho tiempo. 

La figura se mueve bastante despacio y un poco aca- 
lambrada; es posible modificar el programa para que cal- 
cule primero todos los parámetros (u,v,t,1w) de cada fo- 
tograma y los almacene en matrices; pero con ello no se 
consigue una rapidez mucho mayor, porque gran parte 
del tiempo se invierte realmente en dibujar las líneas. 

Hay muchas otras ocasiones en que no es necesario 
que la figura se mueva suavemente. Por ejemplo, en los 
juegos del tipo Space Invader el efecto consiste en que la 
falange de alienígenas se muevan por la pantalla de iz- 
quierda a derecha en ambos sentidos. Si esto se hiciera a 
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base de mover esta parte de la imagen suavemente de un 
lado a otro de la pantalla, el ordenador tendría que hacer 
un esfuerzo enorme; pero si nos fijamos un poco vere- 
mos que lo que realmente ocurre es que los alienígenas 
saltan lateralmente uno por uno. El efecto es de un mo- 
vimiento suave y continuo de toda la población, cuando 
de hecho solamente es actualizada de cada vez una pe- 
queña parte de la pantalla, y esa actualización entraña 
además un salto muy grande. En nuestro ordenador di- 
bujaríamos los alienígenas utilizando PRINT AT y ca- 
racteres gráficos, y no con PLOT, de manera que el salto 
lateral sería igual a la anchura de un cuadrado de carácter. 

El siguiente programa para el ZX81 genera una ima- 
gen que no está dotada de ningún movimiento, pero que 
cambia continuamente. 


10  PRIMT AT RNDZ21,RMNDXA31j5 CHR$(RMHDXA1O) 
20 GOTO 10 


En el Spectrum se puede hacer algo parecido en 
colores: 


10  PRINT AT RND*21, RNDX31j PAPER RNDX7; * * 
20 GOTO 10 


Estos programas, a diferencia del presente libro, no tie- 
nen fin. 
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3 a aparición de los modelos ZX81 y ZX Spectrum 
de Sinclair —el clásico de los ordenadores 


domésticos y el vehículo apropiado para la iniciación en 
la materia— supuso en su día una auténtica revolución 
informática. ZX SPECTRUM: MANUAL DEL 
PROGRAMADOR es una excelente aproximación al 
arte y a la ciencia de la programación; sus autores 
—JOHN y CATHERINE GRANT— fueron los 
encargados de escribir los manuales que acompañan a 
estos ordenadores, así como el solftware que llevan 
incorporado. Dividida la obra en tres secciones bien 
diferenciadas, la primera —<¿Qué es un ordenador?»— 
constituye una introducción fácil y sencilla al mundo de 
los ordenadores, adecuada no sólo para los usuarios del 
Spectrum sino también para cualquier persona 
interesada por estos temas; la segunda —<«Cómo 
escribir programas»— explica detalladamente los 
procedimientos para planificar y realizar programas de 
ordenador; la tercera —<«Ejemplos de programas»— 
contiene multitud de casos prácticos, desde programas 
de juegos y movimientos de figuras en la pantalla hasta 
programas de gráficos, estadística, contabilidad, 
impuestos y proceso de textos, desarrollados en BASIC 
y transportables con las modificaciones oportunas a 
otros ordenadores tanto domésticos como personales. 
En esta misma colección: «Niños y máquinas. Los 


ordenadores y la educación» (LB 1195), de Juan Delval. 


-El libro de bolsillo Alianza Editorial 
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